Reply-To: "Lawrence Thurman" <lthurman@columbus.rr.com>
From: "Lawrence Thurman" <lthurman@columbus.rr.com>
Newsgroups: borland.public.delphi.students
References: <3d53211b_2@dnews>
Subject: Re: How to determine drive list.
Date: Mon, 12 Aug 2002 23:38:47 -0400
Lines: 40
Organization: PowerOfZen Inc
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2600.0000
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000
NNTP-Posting-Host: 24.26.143.218
Message-ID: <3d587ef1$1@dnews>
X-Trace: dnews 1029209841 24.26.143.218 (12 Aug 2002 20:37:21 -0700)
Path: dnews!not-for-mail
Xref: dnews borland.public.delphi.students:18891

I think this code may be helpful to you.

var
  BrowseInfo  : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  lpItemID    : PItemIDList;
  TempPath    : array[0..MAX_PATH] of char;
  TitleName   : string;
begin
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  BrowseInfo.hwndOwner := Form1.Handle;
  BrowseInfo.pszDisplayName := @DisplayName;
  TitleName := 'Please specify a directory';
  BrowseInfo.lpszTitle := PChar(TitleName);
  BrowseInfo.ulFlags := BIF_RETURNONLYFSDIRS;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then begin
    SHGetPathFromIDList(lpItemID, TempPath);
    ShowMessage(TempPath);
    GlobalFreePtr(lpItemID);
  end;
end;

"Joe Callaway" <JCnospam@whitehouse.com> wrote in message
news:3d53211b_2@dnews...
> How would I determine the list of available drive letters without just
> testing for a: to z: existance?
>
> And, where would I get a list, book, or download of the Windows calls that
I
> see on here from time to time?  Obviously, they would not be in the Delphi
> help files.
>
> Thanks