Разработка оболочки для UPX для своих нужд

[Ёжик в тумане]

Здравствуйте! В общем хочу автоматизировать работу упаковщика UPX.
То есть - сделать оболочку на подобии UPX Shell только без наворотов максимально простой.

На форме располагаются: 1 - TEdit (поле ввода т.е. где будет путь к сжимаемому .EXE), 2 - TOpenDialog (для выбора .EXE который нужно сжать), 3 - Button (первый Button1 для открытия TOpenDialog, а второй Button2 для запуска "сжатия"). Знаю, что есть манипуляции с CMD.EXE и параметрами. Собственно какие прописывать процедуры

До этого момента писать такие программы не приходилось использовав поиск по форуму нашёл исходник. http://programmersforum.ru/showthread.php?t=132140 но он не сжимает .EXE почему то.

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

Собственно какие прописывать процедуры

Дальше компонентокидательства вы книгу не читали? Если вообще читали... Вы программист и вам решать какие писать а какие не писать =)

Сам морочился этой дилемой. Понял, что такие заморочки с супер ПО для консольной утилиты - нафиг не нужны
В итоге запилил в оболочку 2 команды с нужными опциями всего-то...

Кидайте upx.exe в папку Windows, далее выполните вот этот REG файл:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell\UPXBest]
@="Упаковать UPX --BEST"

[HKEY_CLASSES_ROOT\*\shell\UPXBest\command]
@="Upx --best --strip-relocs=1 --overlay=strip --compress-exports=1 \"%1\""

[HKEY_CLASSES_ROOT\*\shell\UPXUltra]
@="Упаковать UPX --ULTRA"

[HKEY_CLASSES_ROOT\*\shell\UPXUltra\command]
@="Upx --ultra-brute --all-methods --all-filters  --strip-relocs=1 --overlay=strip --compress-exports=1 \"%1\""

[HKEY_CLASSES_ROOT\*\shell\UPXUnPack]
@="Распаковать UPX"

[HKEY_CLASSES_ROOT\*\shell\UPXUnPack\command]
@="upx -d \"%1\""

И жизнь прекрасна.

[Ёжик в тумане]

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

Дальше компонентокидательства вы книгу не читали? Если вообще читали... Вы программист и вам решать какие писать а какие не писать =)

Читал о компонентокидательстве, ООП и про шаблоны проектирования.
Но негде не написано почему то

[Ёжик в тумане]

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

Сам морочился этой дилемой. Понял, что такие заморочки с супер ПО для консольной утилиты - нафиг не нужны
В итоге запилил в оболочку 2 команды с нужными опциями всего-то...

Кидайте upx.exe в папку Windows, далее выполните вот этот REG файл:

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell\UPXBest]
@="Упаковать UPX --BEST"

[HKEY_CLASSES_ROOT\*\shell\UPXBest\command]
@="Upx --best --strip-relocs=1 --overlay=strip --compress-exports=1 \"%1\""

[HKEY_CLASSES_ROOT\*\shell\UPXUltra]
@="Упаковать UPX --ULTRA"

[HKEY_CLASSES_ROOT\*\shell\UPXUltra\command]
@="Upx --ultra-brute --all-methods --all-filters  --strip-relocs=1 --overlay=strip --compress-exports=1 \"%1\""

[HKEY_CLASSES_ROOT\*\shell\UPXUnPack]
@="Распаковать UPX"

[HKEY_CLASSES_ROOT\*\shell\UPXUnPack\command]
@="upx -d \"%1\""

Мне нужны примеры или процедуры
Вроде таких - ShellExecute(Handle, 'open', 'c:\upx.exe -f....C:\1.exe....', nil, nil, SW_SHOWNORMAL); где будет происходить открытие UPX с параметром и сжатием 1.exe (знаю, что пример не корректный).

То, что в Вашем посте, НЕ ТО!... Я пытаюсь написать программу на подобие UPX Shell самую простенькую.

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

коммандную строку запуска upx для упаковки и распаковки по максимуму можно найти в моем сообщени, если мало, то в док-ии upx'а.

Остальное вы уже сами написали(ShellExecute).

[Ёжик в тумане]

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

коммандную строку запуска upx для упаковки и распаковки по максимуму можно найти в моем сообщени, если мало, то в док-ии upx'а.

Остальное вы уже сами написали(ShellExecute).

Собственно, да. Код представлен ниже.

procedure TShell.UPXClick(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'upx.exe', 'program.exe', nil, SW_SHOWNORMAL);
MessageBox(Handle, 'Упаковано!', 'Сообщение', MB_OK or MB_ICONINFORMATION);
end;
end.

[Пепел Феникса]

в вашем случае сообщение вылезет раньше чем будет реально упаковано.

[Ёжик в тумане]

Сообщение от Пепел Феникса

в вашем случае сообщение вылезет раньше чем будет реально упаковано.

Ок, тогда можно использовать таймер.
или есть другой способ?

procedure TForm1.Pack_UPXClick(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'upx.exe', '1.exe', nil, SW_SHOWNORMAL);
Timer2.Enabled:=True;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
Timer2.Enabled:=False;
MessageBox(Handle, 'Упаковано', 'Сообщение', MB_OK or MB_ICONINFORMATION);
end;

На таймере
Timer2.Enabled:=False; вместо True

P.S. При условии, что upx.exe и 1.exe лежат рядом! Оно и понятно

[astecenko]

Используйте CreateProcess и Waitforsingleobject, например так

procedure Start(const s: string);
var
  si: TStartupInfo;
  p: TProcessInformation;
begin
  FillChar(Si, SizeOf(Si), 0);
  with Si do
  begin
    cb := SizeOf(Si);
    dwFlags := startf_UseShowWindow;
    wShowWindow := SW_HIDE;
  end;
  if not CreateProcess(nil, PAnsiChar(s), nil, nil, false,
    CREATE_NEW_CONSOLE or HIGH_PRIORITY_CLASS, nil, nil, si, p)
  then ShowMessage(IntToStr(GetLastError))
 else begin
  if WaitForSingleObject(p.hProcess, 10000) = WAIT_TIMEOUT
  // Waitforsingleobject(p.hProcess, infinite) если надо ждать до конца завершения процесса
   then ShowMessage('10 секунд мне мало :-(');
  CloseHandle(p.hProcess);
end;
...
// Там где надо запустить упаковку
Start('Upx --ultra-brute --all-methods --all-filters  --strip-relocs=1 --overlay=strip --compress-exports=1 c:\program.exe')
...

Конкретно параметры для CreateProcess посмотрите в справке

[Ёжик в тумане]

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

Используйте CreateProcess и Waitforsingleobject, например так

procedure Start(const s: string);
var
  si: TStartupInfo;
  p: TProcessInformation;
begin
  FillChar(Si, SizeOf(Si), 0);
  with Si do
  begin
    cb := SizeOf(Si);
    dwFlags := startf_UseShowWindow;
    wShowWindow := SW_HIDE;
  end;
  if not CreateProcess(nil, PAnsiChar(s), nil, nil, false,
    CREATE_NEW_CONSOLE or HIGH_PRIORITY_CLASS, nil, nil, si, p)
  then ShowMessage(IntToStr(GetLastError))
 else begin
  if WaitForSingleObject(p.hProcess, 10000) = WAIT_TIMEOUT
  // Waitforsingleobject(p.hProcess, infinite) если надо ждать до конца завершения процесса
   then ShowMessage('10 секунд мне мало :-(');
  CloseHandle(p.hProcess);
end;
...
// Там где надо запустить упаковку
Start('Upx --ultra-brute --all-methods --all-filters  --strip-relocs=1 --overlay=strip --compress-exports=1 c:\program.exe')
...

Конкретно параметры для CreateProcess посмотрите в справке

Спасибо за пример