XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Verknüpfung: Einen Link mit Icon auf dem Desktop anlegen
PRFellow-Vorlage
Autor: Thomas Hölzer
Einen Link mit Icon auf dem Desktop anlegen
Benötigt installierten IE!

Proc CreateDesktopLink

    Parameters name$,efile$,ifile$,idx%
    Declare ini$,sect$
    Let sect$=InternetShortCut
    Let ini$=ReadIni$(HKEY_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,
    Desktop)
    Let ini$=ini$;\,name$;.URL
    Let efile$=file:////;efile$
    WriteIni ini$,sect$,URL=Upper$(efile$)
    WriteIni ini$,sect$,IconFile=Upper$(ifile$)
    WriteIni ini$,sect$,IconIndex=Str$(idx%)

EndProc

Beispiel
CreateDesktopLink Explorer,Add$($WinPath,Explorer.exe),shell32.dll,19