XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Systemsteuerung: Dialog zur Konfiguration der Kommunikationsschnittstellen anzeigen
PRFellow-Vorlage
Autor: Thomas Hölzer
Dialog zur Konfiguration der
Kommunikationsschnittstellen anzeigen
Def CommConfigDialog(3) !KERNEL32,CommConfigDialogA
Declare name#,cc#

Proc ShowCommConfigDialog

    Parameters name$
    Dim name#,Add(Len(name$),1)
    String name#,0=name$
    Dim cc#,52
    Clear cc#  ab Profan 6.5
    Long cc#,0=52
    CommConfigDialog(name#,GetActiveWindow(),cc#)
    Dispose name#
    Dispose cc#

EndProc

Beispiel
Cls
ShowCommConfigDialog COM1