CurDir カンレントディレクトリの取得 CurDir カンレントディレクトリの取得
CurDirは指定したドライブのカレントディレクトリを取得します。
Delphiでは GetDir手続きを使用します。関数では無いので注意してください。また、ドライブはアルファベットではなく数字で指定することをお忘れ無く。
以下の例は最初にカレントドライブのカレントディレクトリを ShowMessageで表示します。その後、フォーム上の Memoに全ドライブのカレントディレクトリを列挙します。
| ■ カレントディレクトリを取得する例 |
procedure TForm1.Button1Click(Sender: TObject);
const
chrDrv : array [0..25] of char =
('A','B','C','D','E','F','G','H','I','J','K','L','M','N','O','P',
'Q','R','S','T','U','V','W','X','Y','Z');
var
strCurDir : string;
ix : integer;
begin
//カレントドライブのカレントディレクトリ
GetDir(0,strCurDir);
ShowMessage(strCurDir);
//A〜Zの全ドライブのカレントディレクトリをメモに列挙します。
Memo1.Lines.Clear;
for ix := Low(chrDrv) to High(chrDrv) do begin
//ドライブの有無をチェック
if (DirectoryExists(chrDrv[ix] + ':\')) then begin
//カレントディレクトリを検索
GetDir(ix + 1,strCurDir);
Memo1.Lines.Add(chrDrv[ix] + ':=' + strCurDir);
end else begin
Memo1.Lines.Add(chrDrv[ix] + 'は無い');
end;
end;
end;
|
|
|
|
| 0 | カレントドライブ |
| 1 | A ドライブ |
| 2 | B ドライブ |
| 3 | C ドライブ |
※無効なドライブを指定してもエラーは返しません。カレントディレクトリを返します。