Автор Serg задал вопрос в разделе Другие языки и технологии
как средствами DELPHI запустить EXE файл и получил лучший ответ
Ответ от Loky[эксперт]
аа жжжепь. Кароче вот самый простой способ:
WinExec(PAnsiChar('c:1.exe'),sw_Show);
Ответ от CHIZZ[гуру]
//***************************************************
// ЗАПУСК ПРОГРАММЫ
//***************************************************
procedure TForm1.qwerty(nameprog:string;param:string;stat:integer);
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString: string;
begin
// если stat=1 то программа ждет закрытия запускаемой программы
// param - список параметров (через пробел)
// пример использования: qwerty('notepad.exe','',0);
ExecuteFile:=nameprog;
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
ParamString:=param;
lpParameters := PChar(ParamString);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then begin
if stat=1 then
begin
repeat
sleep(5000);
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
end;
end
else showmessage('Ошибка запуска файла '+ExecuteFile);
end;
ЗЫ. По привычке после редактирования нажал Ctrl+F9)) Пришлось заново писать
//***************************************************
// ЗАПУСК ПРОГРАММЫ
//***************************************************
procedure TForm1.qwerty(nameprog:string;param:string;stat:integer);
var
SEInfo: TShellExecuteInfo;
ExitCode: DWORD;
ExecuteFile, ParamString: string;
begin
// если stat=1 то программа ждет закрытия запускаемой программы
// param - список параметров (через пробел)
// пример использования: qwerty('notepad.exe','',0);
ExecuteFile:=nameprog;
FillChar(SEInfo, SizeOf(SEInfo), 0);
SEInfo.cbSize := SizeOf(TShellExecuteInfo);
with SEInfo do begin
fMask := SEE_MASK_NOCLOSEPROCESS;
Wnd := Application.Handle;
lpFile := PChar(ExecuteFile);
ParamString:=param;
lpParameters := PChar(ParamString);
nShow := SW_SHOWNORMAL;
end;
if ShellExecuteEx(@SEInfo) then begin
if stat=1 then
begin
repeat
sleep(5000);
Application.ProcessMessages;
GetExitCodeProcess(SEInfo.hProcess, ExitCode);
until (ExitCode <> STILL_ACTIVE) or Application.Terminated;
end;
end
else showmessage('Ошибка запуска файла '+ExecuteFile);
end;
ЗЫ. По привычке после редактирования нажал Ctrl+F9)) Пришлось заново писать
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с ответами на Ваш вопрос: как средствами DELPHI запустить EXE файл
Проблема помогите плиз!
ты скачал игру не полностью, и поэтому оно пишет, что неможет найти файл, поэтому устанавливает не
подробнее...