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