The following code should give you a guide line. I found it commented out..
I had created a componenet to encapsulate it (jut like the open dialog)
// Get the Item ID for Network Neighborhood
SHGetSpecialFolderLocation(Self.Handle, CSIDL_NETWORK, IDRoot);
ZeroMemory(@BrowseInfo, SizeOf(TBrowseInfo));
ZeroMemory(@path, MAX_PATH);
BrowseInfo.hwndOwner := Self.Handle;
BrowseInfo.pidlRoot := Nil; file://IDRoot;
BrowseInfo.lpszTitle := PChar('Identify target report
directory');
BrowseInfo.pszDisplayName := @path;
// Include this flag to show computer only
BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
// Show the browse dialog, get the Item ID for the selected item and
convert it to a path
SHBrowseForFolder(BrowseInfo);
// SHGetPathFromIDList(IDList, Path);
if (path <> '') then begin
DirListBox.Items.Add(Path);
end;
Rob
Software engineer
Wild Software Ltd
[EMAIL PROTECTED]
----- Original Message -----
From: "James Sugrue" <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Thursday, May 24, 2001 11:48 AM
Subject: [DUG]: Folder Dialog
> Howzit,
> I know it's been asked a million times before, so apologies in advance
> but...
>
> What is the API call to show the Select Folders Dialog. Thats not the open
> file dialog, but he one that allows a user to select a folder only.
>
> Cheers
>
> James
>
>
>
> CAUTION - This message may contain privileged and confidential information
intended only for the
> use of the addressee(s) named above. If you are not the intended
recipient of this message you are
> hereby notified that any use, dissemination, distribution or reproduction
of this message is prohibited.
> If you have received this message in error please notify Progressive
Enterprises Ltd. immediately via
> email at [EMAIL PROTECTED] Any views expressed in
this message are those of the
> individual sender and may not necessarily reflect the views of Progressive
Enterprises Ltd.
>
> This footnote also confirms that Progressive Enterprises Ltd. has swept
this email message for the
> presence of computer viruses. This does not guarantee this message is
virus free.
>
> --------------------------------------------------------------------------
-
> New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
> Website: http://www.delphi.org.nz
> To UnSub, send email to: [EMAIL PROTECTED]
> with body of "unsubscribe delphi"
>
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
