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中获取当前用户sid

Delphi 在xp/2k 下实现 win+ctrl+del 等键的屏蔽的方法

Delphi scrollbox1滚动框鼠标滚轮

Delphi 选择目录对话框（selectdirectory 函数）

Delphi里面判断一个字符串在另一个字符串中出现的次数

Delphi 传输文件例子的核心代码

Delphi 2009 之 tbuttonededit

Delphi一个简单的多线程例子

pe结构详细图

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

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