ChDir カレントディレクトリの変更 ChDir カレントディレクトリの変更
ChDirはカレントディレクトリを変更します。Delphiでも同じくChDir手続きを使用します。VBと違ってドライブの変更も可能です。
| ■ ChDirの使用例 |
procedure TForm1.Button1Click(Sender: TObject);
var
strCur : string;
begin
// 開くダイアログを表示
if OpenDialog1.Execute then begin
// カレントディレクトリの変更
ChDir(ExtractFilePath(OpenDialog1.FileName));
end else begin
// カレントディレクトリを現在の Exeのパスに変更
ChDir(ExtractFilePath(Application.ExeName));
end;
// カレントディレクトリの取得
GetDir(0,strCur);
Label1.Caption := strCur;
OpenDialog1.InitialDir := strCur;
end;
|