Returns the current directory.
procedure GetDir(D: Byte; var S: string);
GetDir(Byte D, AnsiString S);
System
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) 2008 CodeGear(TM). All Rights Reserved.
|
What do you think about this topic? Send feedback!
|