|
|
|
|
Delphi 1
Запуск калькулятора Windows
|
procedure TForm1.Button1Click(Sender: TObject); Var w1: Word;
p1,p2: array[0..100] of Char;
beginStrPcopy(p1,'CALC');
IF GetModuleHandle(p1)=0 THEN begin
StrPcopy(p2,'C:\windows\Calc.exe');
w1:=WinExec(p2,SW_Restore);
end;
end;
|
|
|
|
|
|