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与sqlite3数据库

Delphi 去除 tstringlist 重复项

Delphi 关于多语言：如何获取当前系统语言

Delphi 非主窗体(即子窗体)在任务栏显示按钮

Delphi 调用golang dll

Delphi 如何把字符串覆给数组

Delphi rgb 画出三角形

Delphi 随便找个网站获取格林威治时间, 并转换到北京时间

Delphi hash类

如何用Delphi实现子目录级的文件查询

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

转载请注明出处：木庄网络博客 » Delphi 记事本与计算器的调用