Показать сообщение отдельно
  #2  
Старый 01.06.2018, 23:29
lmikle lmikle вне форума
Модератор
 
Регистрация: 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...');
Ответить с цитированием