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