GetCurrentDir - Zurücksetzten

[LoL]

moin zusammen

Delphi-Quellcode:

GetCurrentDir gibt den Namen des aktuellen Verzeichnisses zurück.

Unit

SysUtils

Kategorie

Dateiverwaltung

function GetCurrentDir: string;

Beschreibung

GetCurrentDir gibt den vollqualifizierten Namen des aktuellen Verzeichnisses zurück.

kann ich dieses CurrentDir irgendwie zurücksetzten nachdem ich das,zb durch opendialog, geändert habe?
(dorthin wo die .exe des projekts ist)

ich weis das es SetCurrentDir gibt aber ich will ja zurücksetzten

[mirage228]

Hi,

Ich würde so ähnlich machen

Delphi-Quellcode:

var
  CurrDir: String;
begin
  CurrDir := GetCurrentDir();
  if OpenDialog1.Execute then
  begin
    // ...
  end;
  SetCurrentDir(CurrentDir);
end;

mfG
mirage228

[Luckie]

Dann merk es dir doch. Aber um rauszufinden, wo deine Anwendung liegt gibt es eine einfachere Methode: ParamStr(0) liefert dir Pfad und Name deiner Anwendung.

[perle]

was meinst du denn mit zurücksetzen? Auf den Pfad deines Programmes?

das wäre dann wohl SetCurrentDir(ExtractFilePath(Application.Exename) ;

[LoL]

Danke Luckie das ist zwar nich ganz das was ich wollte ist aber auch zu gebrauchen

[jim_raynor]

Es gibt auch eine Option bei TOpenDialog/TSaveDialog die schimpft sich ofNoChangeDir. Wenn du die auf true setzt wird das aktuelle Verzeichnis erst garnicht geändert.