Требуется написать небольшую процедуру для кнопки

[Sweet Dreams]

Здравствуйте! Требуется написать небольшую процедуру для кнопки язык программирования Delphi 7. При нажатии на которую будет запускатся программа UPX.exe с параметрами для сжатия файла File.exe. Сам UPX.exe и File.exe лежат рядом.

Может у кого есть рабочий код?
Спасибо за ранее...

[Человек_Борща]

пфф а CMD/BAT не катит? Я ими пользуюсь, даже в контекстное меню для exe/dll затолкал, и не парюсь. Работает как надо, из любой папки.

как-то так:

 ShellExecute(GetForegroundWindow,PChar('Open'),PChar('upx.exe'),PChar('<Тут параметры сжатия> "File.exe"'),PChar(ExtractFilePath(ParamStr(0))),SW_SHOW);

Параметры сжатия написаны в README в архиве с UPX'ом.

P.S. Если надо круче, то смотрите CreateProcess и реализуйте крутизну самостоятельно.

[Sweet Dreams]

Сообщение от Человек_Борща

пфф а CMD/BAT не катит? Я ими пользуюсь, даже в контекстное меню для exe/dll затолкал, и не парюсь.

В прочем смотрите API ShellExecute и если надо то CreateProcess.

Ну спасибо что-ли...
ну а на делфи это как будет?!
Мне не бат'ник надо.
А процедура...

[Stilet]

var si:STARTUPINFO; pi:PROCESS_INFORMATION;
begin
 if not CreateProcess('upx.exe <тут его параметры>',0,
		0,0,FALSE,0,0,0,@si,@pi) then RaiseLastOSError()
 else ShowMessage('Все ок');
end;

[Sweet Dreams]

Сообщение от Stilet

var si:STARTUPINFO; pi:PROCESS_INFORMATION;
begin
 if not CreateProcess("upx.exe <тут его параметры>",0,
		0,0,FALSE,0,0,0,@si,@pi) then RaiseLastOSError()
 else ShowMessage('Все ок');
end;

Спасибо огромное.