void __fastcall RunProgram(String FileName, DWORD dwCreationFlags)
{
if(!FileExists(FileName))
{
Application->MessageBox( ("Nie odnaleziono pliku: " + FileName).c_str(),
Application->Name.c_str(), MB_OK | MB_ICONEXCLAMATION);
return;
}
STARTUPINFO StartupInfo;
;ZeroMemory( &StartupInfo, sizeof(STARTUPINFO));
StartupInfo.cb = sizeof(STARTUPINFO);
PROCESS_INFORMATION ProcessInfo;
if(CreateProcess(NULL, FileName.w_str(), NULL, NULL, true, dwCreationFlags,
NULL, NULL, &StartupInfo, &ProcessInfo))
{
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
String program = "ścieżka dostępu do programu"
RunProgram(program, NORMAL_PRIORITY_CLASS);
}