BorlandTalk.com

SRD · Guest

Anyone know how to get a regular opendialog to go to the main desktop
programmatically? I don't want to open the actual desktop folder but the
virtual desktop. Same as when you use the folder dropdown in the dialog and
select the desktop item at the top. Using D6. Found a lot of tricks for
the common file dialogs but not this one.

Thanks

Guest

After a few minutes of research on Google, do this:

Include 'ShlObj' in your uses.

function GetDesktopPath(): string;
var
DesktopPidl: PItemIDList;
DesktopPath: array [0..MAX_PATH] of Char;
begin
SHGetSpecialFolderLocation(0, CSIDL_DESKTOP, DesktopPidl);
SHGetPathFromIDList(DesktopPidl, DesktopPath);
Result := DesktopPath;
end;

Then to make sure that it opens to it, before calling your
OpenDialog.Execute(), issue:

OpenDialog1.InitialDir := GetDesktopPath();