XProfan

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

Proc CreateDesktopLink

    Parameters name$,efile$,ifile$,idx%
    Declare ini$,sect$
    Let sect$=InternetShortCut
    Wie heißt der Windows Desktop-Ordner?
    Let ini$=ReadIni$(HKEY_1,SoftwareMicrosoftWindowsCurrentVersionExplorerShell Folders,
    Desktop)
    Name der Verknüpfungsdatei
    Let ini$=ini$;\,name$;.URL
    Datei, die geöffnet werden soll
    Let efile$=file:////;efile$
    WriteIni ini$,sect$,URL=Upper$(efile$)
    Welche Icondatei soll verwendet werden?
    WriteIni ini$,sect$,IconFile=Upper$(ifile$)
    Nummer des Icons
    WriteIni ini$,sect$,IconIndex=Str$(idx%)

EndProc

CreateDesktopLink XProfan-Community,HTTP://XPROFAN.COM,shell32.dll,13
CreateDesktopLink MMJ Hoyerswerda e.V.,HTTP://MMJ.MXII.COM,shell32.dll,13
Messagebox(Die Internetverknüpfungen auf dem Desktop wurden erzeugt!,I N F O,4160an class=s2>)