Страница 47 из 127
Как узнать каталог, где находится запускаемая программа
// Чтобы узнать каталог напишите следющий код:
void __fastcall TForm1::Button4Click(TObject *Sender)
{
Label1->Caption = Application->ExeName;
Label2->Caption = ParamStr(0);
Label3->Caption = GetCurrentDir();// текущая папка (может измениться!)
char ExeName[MAX_PATH];
GetModuleFileName(HInstance, ExeName, sizeof(ExeName));
Label4->Caption=ExeName;
}