XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Link auf Desktop erzeugen (Verknüpfung)

PROC CREATEDESKTOPLINK

    parameters name$,efile$,ifile$,idx%
    Declare ini$,sect$
    sect$=InternetShortCut
    ini$=ReadIni$(HKEY_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,Desktop)
    ini$ = ini$ +  + upper$(name$) + .URL
    WriteIni ini$,sect$,URL = Upper$(efile$)
    WriteIni ini$,sect$,IconFile = Upper$(ifile$)
    WriteIni ini$,sect$,IconIndex = Str$(idx%)

ENDPROC

Beispiel
CREATEDESKTOPLINK Explorer,upper$($WinPath + Explorer.exe),shell32.dll,19