Советы по Delphi

       

Запуск калькулятора Windows


procedure TForm1.Button1Click(Sender: TObject);
Var
w1: Word;p1,p2: array[0..100] of Char;begin
StrPcopy(p1,'CALC');IF GetModuleHandle(p1)=0 THEN beginStrPcopy(p2,'C:\windows\Calc.exe');w1:=WinExec(p2,SW_Restore);end;end;
[000394]


Содержание раздела