Moduły » System

GetDir

  • 2010-10-31 18:27
  • 0 komentarzy
  • 402 odsłony
  • Oceń ten tekst jako pierwszy
GetDir
Moduł: System

procedure GetDir(D: Byte; var S: string);

Procedura GetDir przypisuje do zmiennej przekazanej w parametrze S, wartość wskazującą na dotychczasowy katalog (np. C:\Program Files\Borland\Delphi\Projects). Pierwszy parametr (D) musi wskaztywać na literę dysku (np. 3 = C:, 4 = D: itp):

var
  S : String;
begin
  GetDir(4, S);
  Writeln(S);
end.


Zobacz też: