Delphi2010中的GetDir在Windows 7下不起作用？

Question

我在 Delphi2010 中有以下命令序列：

  var netdir:string;
  ....
  OpenDialog1.InitialDir:=netdir;
  ....
  OpenDialog1.Execute...
  ....
  GetDir(0,netdir);
  ....

执行 OpenDialog 后，我应该在字符串 netdir 中包含我完成的目录 我的 OpenDialog.Execute。在下一个 OpenDialog.Execute 中应该从那里开始 目录。 在 XP 上运行正常，但在 Windows 7 上就不行？ 它始终从程序安装的目录开始。

知道可能出了什么问题吗？

谢谢。

Answer 1

您的问题无法按目前的情况得到回答，因为它缺少几个关键细节。

1. netdir 是全局常量，还是时常超出范围？
2. 您是否将 netdir 设置为 OpenDialog1.Execute 之前的内容？
3. 问题是关于 GetDir 返回什么目录（如标题所示），还是如何使打开的对话框记住上次访问的目录（如正文所示）？

我假设 1) netdir 是一个全局常量，2) 您最初没有设置它，3) 您希望打开的对话框记住上次访问的文件夹。因此你有类似的东西

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm3 = class(TForm)
    OpenDialog1: TOpenDialog;
    procedure FormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

var
  netdir: string;

implementation

{$R *.dfm}

procedure TForm3.FormClick(Sender: TObject);
begin
  OpenDialog1.InitialDir := netdir;
  OpenDialog1.Execute;
  GetDir(0, netdir);
end;

end.

那么解决方案是让Windows为你记住目录，即简单地

procedure TForm3.FormClick(Sender: TObject);
begin
  OpenDialog1.Execute;
end;

单独做！但为什么你的方法不起作用呢？好吧，GetDir 不会返回您想要的内容。如果您需要显式控制，请执行

procedure TForm3.FormClick(Sender: TObject);
begin
  OpenDialog1.InitialDir := netdir;
  OpenDialog1.Execute;
  netdir := ExtractFilePath(OpenDialog1.FileName)
end;

Answer 2

如果您不想打开对话框，您可以执行以下操作以获取程序下的目录。

yourdir:=ExtractFilePath(Application.ExeName);

我已经在 Vista 中完成了，并且有效。

Answer 3

这是问题的解决方案

openDialog1.Options := [ofFileMustExist];

if openDialog1.Execute then
begin

end;