谁用过SelectDirectory这个函数？

[盘谷]

我使用了这个函数，系统要求将FileCtrl这个单元包括进去，我就应不容辞的包括进去了。但是每次编译的时候系统开始出警告：

[Warning] NewLibFrm.pas(8): Unit 'FileCtrl' is specific to a platform

想问问大家为什么，我该如何消除这个警告。

[delphi_user]

我用过，不过没有你那样的提示。
你用的平台是什么。

[盘谷]

Win2000，不过我在XP下编译也出现这个错误。

[byrybye]

可是，我试过了，没有你说的问题呀，
你的USES语句看一下，好吗，
把程序贴出来吧

[daoke]

gz

[byrybye]

哦 你用98 应该是没问题的。
可能是兼容问题。
怎么解决，我也不知道了，
帮不到你了。

[盘谷]

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
LabelDir: string;
begin
if SelectDirectory('请选择搜寻文件夹', '', LabelDir) then
Label1.Caption := LabelDir;
end;

end.

[qiandeng]

我的很正常呀

[盘谷]

为什么我的会报错，难道是bug！

[HenryCZH]

运行程序的时候，我在选择框按取消的时候会有错误提示，不知是怎么回事？‘access violation at address 00449a15 at module project2.exe……’
有人继续解答吗？

[kevin_gao]

不会啊，我的没问题。
你自己单独建一个工程，测试一下看看。