tag leute,
wer eine von obigen "geschichten" aufrufen will, hier 'ne prozedur:
procedure tmain.OpenClassID2(Name : String);<br>
var Temp : array[0..255] of Char;<br>
befehl:string;<br>
begin<br>
GetWindowsDirectory(Temp, sizeof(Temp));<br>
chdir(temp);<br>
if Name = 'Papierkorb' then<br>
begin<br>
befehl := temp+'\Explorer.exe /n,::{645FF040-5081-101B-9F08-00AA002F954E}';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
if Name = 'Netzwerkumgebung' then<br>
begin<br>
befehl := Temp+'\Explorer.exe /n,::{208D2C60-3AEA-1069-A2D7-08002B30309D}';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
if Name = 'Arbeitsplatz' then<br>
begin<br>
befehl := Temp+'\Explorer.exe /n,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
if Name = 'Eigene Dateien' then<br>
begin<br>
befehl := Temp+'\Explorer.exe /n,::{450d8fba-ad25-11d0-98a8-0800361b1103}';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
if Name = 'Desktop' then<br>
begin<br>
befehl := Temp+'\Explorer.exe /n';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
end;<br>
mfg
markus
wer eine von obigen "geschichten" aufrufen will, hier 'ne prozedur:
procedure tmain.OpenClassID2(Name : String);<br>
var Temp : array[0..255] of Char;<br>
befehl:string;<br>
begin<br>
GetWindowsDirectory(Temp, sizeof(Temp));<br>
chdir(temp);<br>
if Name = 'Papierkorb' then<br>
begin<br>
befehl := temp+'\Explorer.exe /n,::{645FF040-5081-101B-9F08-00AA002F954E}';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
if Name = 'Netzwerkumgebung' then<br>
begin<br>
befehl := Temp+'\Explorer.exe /n,::{208D2C60-3AEA-1069-A2D7-08002B30309D}';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
if Name = 'Arbeitsplatz' then<br>
begin<br>
befehl := Temp+'\Explorer.exe /n,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
if Name = 'Eigene Dateien' then<br>
begin<br>
befehl := Temp+'\Explorer.exe /n,::{450d8fba-ad25-11d0-98a8-0800361b1103}';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
if Name = 'Desktop' then<br>
begin<br>
befehl := Temp+'\Explorer.exe /n';<br>
winexec(pchar(befehl),sw_show);<br>
end;<br>
end;<br>
mfg
markus