Returns the current directory.
procedure GetDir(D: Byte; var S: string);
GetDir(Byte D, AnsiString S);
|
Value |
Drive |
|
0 |
Default |
|
1 |
A |
|
2 |
B |
|
3 |
C |
Delphi Examples:
{ This example reports the current directory and drive. Set Help on GetDir for reporting information on other drives. } procedure TForm1.Button1Click(Sender: TObject); var s : string; begin GetDir(0,s); { 0 = Current drive } MessageDlg('Current drive and directory: ' + s, mtInformation, [mbOk] , 0); end;
|
Copyright(C) 2009 Embarcadero Technologies, Inc. All Rights Reserved.
|
|
What do you think about this topic? Send feedback!
|