Тема: Запуск исполняемого файла
Показать сообщение отдельно
  #2  
Старый 14.03.2012, 10:41
Аватар для Karsh
Karsh Karsh вне форума
Активный
  
Регистрация: 22.09.2007
Адрес: SPb
Сообщения: 228
Версия Delphi: 7, 2009, XE2
Репутация: 70
По умолчанию
Код:
procedure TForm1.btn1Click(Sender: TObject);
begin
  if ShellExecute(Handle, 'open', 'notepad.exe', '', '', SW_SHOWNORMAL) then
    Close
  else
    ShowMessage('Error');
end;
__________________
Начинающий программист уверен, что в 1 килобайте 1000 байт.
Законченный программист уверен, что в 1 километре 1024 метра.
Ответить с цитированием