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