Arbeitzplatz aufrufen
|
var Win: array[0..255] of Char; Erg, WinPfad: String; begin GetWindowsDirectory(Win,256); WinPfad := String(Win); ChDir(WinPfad); Erg := OpenClassID('Arbeitsplatz'); WinPfad := Erg; WinExec(PChar(WinPfad), SW_SHOWNORMAL); ChDir(Anwendungsverzeichnis); end; Hier kommt jetzt die entscheidende "Geheimfunktion": function OpenClassID(Name : String): String;var Temp: array[0..255] of Char; begin GetWindowsDirectory(Temp, SizeOf(Temp)); if Name = 'Papierkorb' then Result := Temp + '\Explorer.exe /n,::{645FF040-5081-101B-9F08-00AA002F954E}' else if Name = 'Netzwerkumgebung' then Result := Temp + '\Explorer.exe /n,::{208D2C60-3AEA-1069-A2D7-08002B30309D}' else if Name = 'Arbeitsplatz' then Result := Temp + '\Explorer.exe /n,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}' else if Name = 'Eigene Dateien' then Result := Temp + '\Explorer.exe /n,::{450d8fba-ad25-11d0-98a8-0800361b1103}' else if Name = 'Desktop' then Result := Temp + '\Explorer.exe /n'; end; |
