本文整理自网络,侵删。
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;
相关阅读 >>
Delphi webbrowser 加载html 将html代码转换成网页
更多相关阅读请进入《Delphi》频道 >>