Хочу запустить файл

[Польчик]

Написала небольшой проек в котором мне необходимо при нажатии кнопки запускать простую игрушку, такую как тетрис например. то есть мне надо открывать exe.файл. Буду очень благодрна за помощь

[mrandrey]

ShellExecute(0,nil,pchar(filename), pchar(parametrs),pchar(directory),1 );
вот так..

кстати чуть не забыл, не забудь
uses ......, shellapi;

А вот эта функция будет ждать пока программа не закроется

function RunFileAndWait(const FileName,Params:ShortString):boolea n;export;
var
StartInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLinechar;
begin
{ Ïîìåùàåì èìÿ ôàéëà ìåæäó êàâû÷êàìè, ñ ñîáëþäåíèåì âñåõ ïðîáåëîâ â èìåíàõ Win9x }
CmdLine := PChar('"'+Filename+'" '+Params);
FillChar(StartInfo, SizeOf(StartInfo), #0);
with StartInfo do
begin
cb := SizeOf(CmdLine);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow :=1;
end;
//
Result := CreateProcess(nil,
CmdLine,
nil,
nil,
false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil,
nil,
StartInfo,
ProcInfo);
{ Îæèäàåì çàâåðøåíèÿ ïðèëîæåíèÿ }
if Result then
begin
WaitForSingleObject(ProcInfo.hProce ss, INFINITE);
{ Free the Handles }
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
end;

[dron-s]

WinExec, CreateProcess

[Польчик]

Спаибо, пойду попробую. Напишу получилось или нет