🚀 go-pugleaf

> ==> Early_Chou(����װ��)                     ˵��: 
//admire Eaarly Chou

but ���������������������,Ӳ��,����,��������������?

> �������Win95��,�����������Shell APIȡ�����е�Drive��.
> ��������Delphi 3��д��һ�δ���:
> uses ShlObj;
> procedure TForm1.Button1Click(Sender: TObject);
> var
>   shf,shfDrv:IShellFolder;
>   pidl:PItemIDList;
>   enum:IEnumIDList;
>   f:integer;
>   StrRet:TStrRet;
>   s:string;
>   inout:integer;
> begin
>   SHGetSpecialFolderLocation(Handle,CSIDL_DRIVES,pidl);
>   SHGetDesktopFolder(shf);
>   shf.BindToObject(pidl,nil,IID_IShellFolder,Pointer(shfDrv));
>   shfDrv.EnumObjects(Handle,32,enum);
>   ListBox1.Items.Clear;
>   while enum.Next(1,pidl,f)=S_OK do
>   begin
>     // We only want Drives, no Control Panel and Printer included.
>     inout:=SFGAO_FILESYSTEM;
>     shfDrv.GetAttributesOf(1,pidl,inout);
>     if inout and SFGAO_FILESYSTEM=0 then
>       continue;
>     // Retrieve names of drives.
>     shfDrv.GetDisplayNameOf(pidl,1,StrRet);
>     case StrRet.uType of
>       STRRET_CSTR: s:=StrRet.cStr;
>       STRRET_WSTR: s:=StrRet.pOleStr;
>       STRRET_OFFSET: s:=PChar(@pidl.mkid)+StrRet.uOffset;
>     else s:='';
>     end;
>     
>     // Append drive name to ListBox
>     ListBox1.Items.Add(S);  //ȡ�õ����ַ����б��ListBox1��.
>   end;
> end;
> ���ҵĻ����ϲ���Ľ������:
>   3.5����(A:)
>   System(C:)
>   Languages(D:)
>   Favorates(E:)
>   Languages(J:)               \
>   Languages(K:)               /  Substed Drives

--
�� ��Դ: �й�ƴ�BBSվ [bbs.ustc.edu.cn]