怎样调用附件中 计算器 ?

Question

在DELPHI程序中,怎样调用附件中 计算器 ?

Answer 1

ShelExecute调用http://lysoft.7u7.net

Answer 2

uses
  ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Application.Handle,
    pchar('open'), pchar('calc.exe'), nil, nil, SW_SHOWNORMAL);
end;

Answer 3

const
  MAXSIZE = 100;
var
  HWndCalc: HWnd;
  SysDirChar: array[0..MAXSIZE] of Char;
  SysDir: string;
begin
  //find the exist calculator window
  HWndCalc := FindWindow(nil, '计算器');
  if HWndCalc <> 0 then
  begin
    ShowWindow(HWndCalc, SW_SHOWNORMAL);
    Exit;
  end;
  //返回WINDOWS系统目录路径
  GetSystemDirectory(SysDirChar, MAXSIZE);
  SysDir := StrPas(SysDirChar);
  if SysDir[Length(SysDir)] <> '\' then
    SysDir := SysDir + '\';
  if FileExists(SysDir+'calc.exe') then
    ShellExecute(Self.Handle,'open','calc.exe','',PChar(SysDir),SW_SHOW)
  else
    MessageBox(Handle,PChar('找不到计算器程序!'),PChar('警告'),MB_OK+MB_ICONWARNING);
end;

Answer 4

const
  MAXSIZE = 100;
var
  HWndCalc: HWnd;
  SysDirChar: array[0..MAXSIZE] of Char;
  SysDir: string;
begin
  //find the exist calculator window
  HWndCalc := FindWindow(nil, '计算器');
  if HWndCalc <> 0 then
  begin
    ShowWindow(HWndCalc, SW_SHOWNORMAL);
    Exit;
  end;
  //返回WINDOWS系统目录路径
  GetSystemDirectory(SysDirChar, MAXSIZE);
  SysDir := StrPas(SysDirChar);
  if SysDir[Length(SysDir)] <> '\' then
    SysDir := SysDir + '\';
  if FileExists(SysDir+'calc.exe') then
    ShellExecute(Self.Handle,'open','calc.exe','',PChar(SysDir),SW_SHOW)
  else
    MessageBox(Handle,PChar('找不到计算器程序!'),PChar('警告'),MB_OK+MB_ICONWARNING);
end;

Answer 5

uses shellAPI;ShellExecute(handle,'open','calc.exe','','',SW_SHOWNORMAL);//打开计算器

Answer 6

。假设你已经会使用delphi并且调用外部文件。说你的问题：如何调用计算器？
（ 看来你对windows系统基本操作不熟）
  以win2000举例，计算器是 C:\WINNT\System32\calc.exe
       依次类推：画图是   C:\WINNT\System32\mspaint.exe
                 记事本是 C:\WINNT\System32\notepad.exe
                 扫雷是   C:\WINNT\System32\winmine.exe
                 ... ...
 “开始”菜单---程序---附件---，然后在相应的程序图标上点鼠标右键--属性，一目了然。。
-----------------------------
第二种假设，如果你还不会用delphi调用外部文件，那么，看下面。。方法： 开启一新工程，然后点击一按钮，添加代码   WinExec('C:\WINNT\System32\calc.exe',SW_SHOWNORMAL);
winexec后面的括号里是路径+程序名.--------------------------------------------

Answer 7

或者直接 WinExec('calc.exe',SW_SHOWNORMAL); 都可以的。