zur Startseite Infos für Behinderte Behindertensoftware Forum Programmierarchiv
Webguide Markus privat Kontakt Download Gästebuch
Online Games Entstehungsgeschichte

Windows Standardordner aufrufen

type TDefaultFolder = (Papierkorb, Netzwerkumgebung, Arbeitsplatz, Eplorer, Eigene_Dateien, Desktop);

uses ShellApi;

procedure Aufruf_Default_Folder(aFolder: TDefaultFolder);

var WinDir: array[0..255] of Char;
Parameter: String;

begin
GetWindowsDirectory(WinDir, sizeof(WinDir));

case aFolder of
Papierkorb: Parameter := '/n,::{645FF040-5081-101B-9F08-00AA002F954E}';
Netzwerkumgebung: Parameter := '/n,::{208D2C60-3AEA-1069-A2D7-08002B30309D}';
Arbeitsplatz: Parameter := '/n,::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';
Eigene_Dateien: Parameter := '/n,::{450d8fba-ad25-11d0-98a8-0800361b1103}';
Desktop: Parameter := '/n';
else Parameter := '';
end; // case aFolder of

ShellExecute(0, 'open', 'Explorer.exe', PChar(Parameter), WinDir, SW_NORMAL);
end;


modifiziert von Mario Noack

zurück zum Stichwortverzeichnis