void __fastcall TForm1::FormCreate(TObject *Sender) { AnsiString str; str = ExtractFilePath(Application->ExeName); ShowMessage(str); }
DownLoad bcbtips011.lzh 3KB(BCB5)