milie_xp: شكرااااااااااا milie_xp:uses
FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
//New Style
if SelectDirectory('Select a directory', '', Dir) then
Dialogs.MessageDlg(Dir, mtInformation, mbOKCancel, 0);
...
//95 Style
if SelectDirectory(Dir, [sdPerformCreate, sdAllowCreate, sdPrompt], 0) then
Dialogs.MessageDlg(Dir, mtInformation, mbOKCancel, 0);
end;
uses
FileCtrl;
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
//New Style
if SelectDirectory('Select a directory', '', Dir) then
Dialogs.MessageDlg(Dir, mtInformation, mbOKCancel, 0);
...
//95 Style
if SelectDirectory(Dir, [sdPerformCreate, sdAllowCreate, sdPrompt], 0) then
Dialogs.MessageDlg(Dir, mtInformation, mbOKCancel, 0);
end;