this will execute your .exe.
void __fastcall TForm1::Button1OnClick(TObject * Sender)
{
const char * WinShut = "C:\\MyDir\\MyDir\\MyApp.exe";
//selects the program and how to use it
SHELLEXECUTEINFO exeinfo;
memset(&exeinfo, 0, sizeof(exeinfo));
exeinfo.cbSize = sizeof(exeinfo);
exeinfo.lpVerb = "open";
exeinfo.lpFile = WinShut;
exeinfo.fMask = SEE_MASK_NOCLOSEPROCESS;
exeinfo.nShow = SW_SHOWDEFAULT;
if (!ShellExecuteEx(&exeinfo))
{
MessageDlg("Could not open: Win.exe", mtError, TMsgDlgButtons() << mbOK,0);
return;
}
} Cyprus