Показать сообщение отдельно
  #2  
Старый 15.03.2009, 22:59
Аватар для Rokuell
Rokuell Rokuell вне форума
Активный
 
Регистрация: 27.12.2006
Адрес: Псков
Сообщения: 274
Версия Delphi: Delphi 7
Репутация: 497
Сообщение

Запускай cmd с параметром /k <команда>
Код:
uses ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
 ShellExecute(0,'open','cmd.exe','/k ipconfig','C:\Windows\system32\',SW_SHOW);
end;

PS: Или с параметром /c если хочешь, чтобы команда выполнилась и консоль закрылась
__________________
Велик и могуч наш Object Pascal !
ICQ: 357-591-887
Ответить с цитированием