01.06.2018, 23:29
|
Модератор
|
|
Регистрация: 17.04.2008
Сообщения: 8,015
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
|
|
Ну, что-то типа так:
Код:
If ShellExecute(Application.Handle,
PChar('open'),
PChar('my_program.exe'),
PChar(Format('steghide embed -cf %s -ef %s',[Edit2.Text,Edit1.Text])),
Nil,
SW_SHOW) <= 32 Then
ShowMessage('Oops...');
|