Главная страницаОбратная связьКарта сайта

Запуск внешней программы


procedure TForm1.Button1Click(Sender: TObject);
var
  w1: Word;
  p1, p2: array[0..100] of Char;
begin
  StrPcopy(p1, "CALC");
  if GetModuleHandle(p1) = 0 then
  begin
    StrPcopy(p2, "C:\windows\Calc.exe");
    w1 := WinExec(p2, SW_Restore);
  end;
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Запуск внешней программы", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info