SelectDirectory Delphi에서 폴더 위치 지정

1676 단어 Directory
//SelectDirectory Delphi  
procedureTForm1.Button1Click(Sender: TObject); // '
begin
  OpenDialog1.Execute; // “ ”
  Label1.Caption :=OpenDialog1.FileName; // Label1
     // , “ ” 。
  Label1.Refresh;
end;
  //
usesFileCtrl;


procedureTForm1.Button2Click(Sender: TObject);
var
  strDirectory: String;
  wstrRoot:WideString;
begin
  wstrRoot := ''; // , “ ”。
  SelectDirectory( ' ',wstrRoot,strDirectory);
  Label2.Caption :=strDirectory; // , strDirectory
  Label2.Refresh;
end;

Wiz를 통해 게시

좋은 웹페이지 즐겨찾기