浏览文件夹的对话框怎么写。(50分)

server · 1999-11-14

浏览文件夹的对话框怎么写。 就象windows中查找文件框中点 击浏览后出现的对话框。

hubdog · 1999-11-14

uses shlobj; 中ShBrowseForFolder

Charles · 1999-11-14

首先在你的Form上放一个OpenDialog 控件OpenDialog1   然后:OpenDialog1.execute 即可.

server · 1999-11-14

尊敬的hubdog: 请问具体怎么调用，请写个简单的例子给我行吗？

hubdog · 1999-11-14

uses shlobj,activex; procedure TForm1.Button2Click(Sender: TObject); var     BrowseInfo: TBrowseInfo;       ShellMalloc: IMalloc;  RootIDList,ItemIDList: PItemIDList; begin   FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);   if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then     SHGetSpecialFolderLocation(Application.Handle,CSIDL_FONTS , RootIDList);//起始是字体目录，可改成CSIDL_DESKTOP等其他   with BrowseInfo do   begin     hwndOwner := Application.Handle;     pidlRoot := RootIDList;//can be nil     pszDisplayName := '浏览';     lpszTitle := '浏览';     ulFlags := BIF_BROWSEFORCOMPUTER;     lpfn:=nil;     lparam:=0;   end;   ItemIDList := ShBrowseForFolder(BrowseInfo);   ShellMalloc.Free(RootIDList); end;

server · 1999-11-15

不懂怎样判断用户按了确定还是取消, 在对话框返回时得到选定的路径怎样获取.

hubdog · 1999-11-15

procedure TForm1.Button2Click(Sender: TObject); var  BrowseInfo: TBrowseInfo;  ShellMalloc: IMalloc;  RootIDList,ItemIDList: PItemIDList;  SelectBuffer:array [0..Max_Path] of char;//PChar;  Directory,displayname:string; begin   FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);   if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then     SHGetSpecialFolderLocation(Application.Handle,CSIDL_FONTS , RootIDList);//起始是字体目录，可改成CSIDL_DESKTOP等其他   with BrowseInfo do   begin     hwndOwner := Application.Handle;     pidlRoot := RootIDList;//can be nil     pszDisplayName := '浏览';     lpszTitle := '浏览';     ulFlags := BIF_BROWSEFORCOMPUTER;     lpfn:=nil;     lparam:=0;   end;   ItemIDList := ShBrowseForFolder(BrowseInfo);   if ItemIDList <> nil then   begin     ShGetPathFromIDList(ItemIDList, SelectBuffer);     ShellMalloc.Free(ItemIDList);     Directory := String(SelectBuffer);//选的目录名     DisplayName:=string(BrowseInfo.pszDisplayName);   end;   ShellMalloc.Free(RootIDList); end;

蚯蚓 · 1999-11-15

好麻烦， 如果是选择目录呢， uses FileCtrl; function SelectDirectory(var Directory: string; Options: TSelectDirOpts; HelpCtx: Longint): Boolean; overload; 如果是选择文件呢，就用FileOpenDialog好了

cAkk · 1999-11-15

蚯蚓说的对. 这个问题已经讨论多次了!

server · 1999-11-15

hubdog:     我所有的问题中这个问题得到了最快最好的回答.   真是感激不尽!!

Jams · 1999-11-15

>>

cAkk · 1999-11-15

K! 不可理喻!

卞志强 · 1999-11-15

dialog里有的

DreamTiger · 1999-11-15

题外话，选择目录的时候，怎么让他出现 Window95模式的选择Dialog？而不是用 Drive,Directory和File三个选择框组合而 成的那种？

带而费 · 1999-11-15

hubdog做的很好呀，delphi自带的那个对话框太土了，感觉是回到了 win32的年代，难道hubdog的做法有不妥么？

带而费 · 1999-11-15

hubdog应该注意一下自己的笔误.

server · 1999-11-15

接受答案了.

cAkk · 1999-11-15

hubdog的代码实现结果和delphi自己的函数SelectDirectory效果一样! 你们大概不会用SelectDirectory函数吧? 看看它的帮助,有两种用法!

蚯蚓 · 1999-11-16

我不服！！！！！！！！ SelectDirectory函数是overload的,我不过Copy错了而已。。。。 Win95系统的那个如下： 源代码： unit FileCtrl; ... function SelectDirectory(const Caption: string; const Root: WideString;   out Directory: string): Boolean; var   WindowList: Pointer;   BrowseInfo: TBrowseInfo;   Buffer: PChar;   RootItemIDList, ItemIDList: PItemIDList;   ShellMalloc: IMalloc;   IDesktopFolder: IShellFolder;   Eaten, Flags: LongWord; begin   Result := False;   Directory := '';   FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);   if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then   begin     Buffer := ShellMalloc.Alloc(MAX_PATH);     try       RootItemIDList := nil;       if Root <> '' then       begin         SHGetDesktopFolder(IDesktopFolder);         IDesktopFolder.ParseDisplayName(Application.Handle, nil,           POleStr(Root), Eaten, RootItemIDList, Flags);       end;       with BrowseInfo do       begin         hwndOwner := Application.Handle;         pidlRoot := RootItemIDList;         pszDisplayName := Buffer;         lpszTitle := PChar(Caption);         ulFlags := BIF_RETURNONLYFSDIRS;       end;       WindowList := DisableTaskWindows(0);       try         ItemIDList := ShBrowseForFolder(BrowseInfo);       finally         EnableTaskWindows(WindowList);       end;       Result :=  ItemIDList <> nil;       if Result then       begin         ShGetPathFromIDList(ItemIDList, Buffer);         ShellMalloc.Free(ItemIDList);         Directory := Buffer;       end;     finally       ShellMalloc.Free(Buffer);     end;   end; end; 你自己说，哪个是"最快最好的回答"!!!!!!!!

浏览文件夹的对话框怎么写。(50分)

server

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

Charles

Unregistered / Unconfirmed

server

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

server

Unregistered / Unconfirmed

hubdog

Unregistered / Unconfirmed

蚯蚓

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

server

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

卞志强

Unregistered / Unconfirmed

DreamTiger

Unregistered / Unconfirmed

带而费

Unregistered / Unconfirmed

带而费

Unregistered / Unconfirmed

server

Unregistered / Unconfirmed

cAkk

Unregistered / Unconfirmed

蚯蚓

Unregistered / Unconfirmed

Similar threads