Thema: Delphi Working Directory

Einzelnen Beitrag anzeigen

batrachian

Registriert seit: 11. Jul 2008
3 Beiträge
 
#3

Re: Working Directory

  Alt 16. Jul 2008, 13:10
Ah super,

das ParamStr(0) war genau das was ich gesucht habe.
Hier die etwas ... naja ... quick and dirty lösung:

Delphi-Quellcode:
str_TempDir := GetCurrentDir;
  str_CurrentWorkingDir := ExtractFilePath(ParamStr(0));
  SetCurrentDirectory(PChar(str_CurrentWorkingDir));
  str_CompetePathToConfig := ExpandFileName(m_str_PathToConfig);
  SetCurrentDirectory(PChar(GetCurrentDir));
Danke
  Mit Zitat antworten Zitat