Ĺadny brzuch
Chcę zrobić aby na starcie program rozpoznawał w jakim katalogu został uruchomiony (pełna ścieżka). Szuuukałem na 4p i nic nie znalazłem.....
A na forum szukałeś???
ExtractFilePath(ParamStr(0));
Procedure TForm1.FormCreate(Sender: TObject); var KatalogProgramu: string; begin KatalogProgramu := ExtractFilePath(application.ExeName); end;
Chyba ci o to chodzi?
Właśnie o to !! :)
BTW jest też taka funkcja:function GetCurrentDir: string;Zwracająca ścieżke.
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
A na forum szukałeś???
ExtractFilePath(ParamStr(0));
Procedure TForm1.FormCreate(Sender: TObject); var KatalogProgramu: string; begin KatalogProgramu := ExtractFilePath(application.ExeName); end;
Chyba ci o to chodzi?
Właśnie o to !! :)
BTW jest też taka funkcja:function GetCurrentDir: string;Zwracająca ścieżke.