procedure TMain.N8Click(Sender: TObject);
var
OFile:String;
HWndCalculator:HWnd;
begin
HWndCalculator:=FindWindow(nil,'计算器');
if (HWndCalculator=0) then
begin
OFile:='calc.exe';
Shellexecute(handle,'Open',pchar(OFile),nil,pchar(ExtractFilePath(OFile)),SW_SHOWNORMAL);
end;
end;
procedure TMain.N9Click(Sender: TObject);
var
OFile:String;
HWndCalculator:HWnd;
begin
HWndCalculator:=FindWindow(nil,'记事本');
if (HWndCalculator=0) then
begin
OFile:='NOTEPAD.EXE';
Shellexecute(handle,'Open',pchar(OFile),nil,pchar(ExtractFilePath(OFile)),SW_SHOWNORMAL);
end;
end;