Запуск калькулятора 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 begin StrPcopy(p2,'C:\windows\Calc.exe'); w1:=WinExec(p2,SW_Restore); end; end;

[000394]

Содержание Назад Вперед

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий