Question

Delphi7用什么语句打开文件夹!

比如我在form创建一个button按钮 点击按钮自动打开D:\program\AutoIt3\ 文件夹!

Answer 1

ShellExecute() API函数
例如：
ShellExecute(NULL, "open ", "D:\\Program Files\\11.xls ", NULL, NULL, SW_SHOWNORMAL);

///////////////////////////////
另外还需要注意 在DELPHI中Q开头的单元不是运行在WINDOWS 下的最佳方案，因为当你发布程序的时候有些附加的资源需要！

Answer 2

DateToStr()返回的字符串格式跟系统的日期分隔符有关，只有当系统的日期分隔符是“-”和“.”时，用返回的字符串通过ForceDirectories()创建文件夹才会成功。系统的日期分隔符是“/”时是不行的。 在XP下也一样。系统的日期分隔符在用资源管理器浏览文件的“详细信息”视图下就看得出来。

Answer 3

uses QDialogs

procedure TForm1.Button1Click(Sender: TObject);
var
aSelDir: widestring;
begin
if SelectDirectory('选择一个文件夹','D:\program\AutoIt3\',aSelDir) then
ShowMessage(aSelDir);
end;