Delphi 记事本与计算器的调用


本文整理自网络,侵删。

 

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过程函数传递参数的八种方式

Delphi开发平台 raw socket

Delphi tfont类型和json互相转换的函数

Delphi dbgrids 组件内实现查询

Delphi 编写ie代理服务器

Delphi textfile utf8编码读写

Delphi 计算农历的单元

Delphi 获取鼠标当前位置的相对坐标

Delphi nativexml的中文支持

Delphi webbrowser 加载html 将html代码转换成网页

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...