Ja genau, das habe ich gesucht. Verflixt noch eins, Thx.
So will ich es offnen:
Delphi-Quellcode:
var
Info: ShellExecuteInfo;
List: PItemIDList;
begin
SHGetSpecialFolderLocation(GetActiveWindow, CSIDL_DRIVES, List);
ZeroMemory(@Info, SizeOf(ShellExecuteInfo));
Info.cbSize := SizeOf(ShellExecuteInfo);
Info.lpVerb := 'open'; // <-----<<<
Info.Wnd := GetActiveWindow;
Info.fMask := SEE_MASK_IDLIST;
Info.lpIDList := List;
Info.nShow := SW_NORMAL;
ShellExecuteEx(@Info)
end;