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 保存hotkey1.hotkey值

Delphi模仿“千千静听”滚动标题栏，非常简单！

Delphi 动态创建一个ipedit控件

Delphi unicode转汉字 ，支持自动过滤非 unicode编码

Delphi unigui unistringgrid1 清空

Delphi idhttpserver接收http get请求解码问题

Delphi 获取系统的硬盘分区及使用信息

Delphi 获取网页源代码的最简单办法

Delphi 判断字符串是否包含汉字

Delphi中创建json字符串

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

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