在线等待一个简单问题

Question

请问各位大侠，在delphi中怎么样调用系统的计算器，请给出例子！撒分了！

Answer 1

WinExec('C:\WINNT\system32\calc',SW_SHOW);

Answer 2

shellexec('calc.exe');不行呀，老兄，能具体点吗

Answer 3

WinExec('C:\WINNT\system32\calc',SW_SHOW);--------------------------------------------------------------
泡分了

Answer 4

shellexecute(handle,'open','calc.exe','-s','',SW_SHownormal);

Answer 5

WinExec('C:\WINNT\system32\calc',SW_SHOW);

Answer 6

1） 使用 WinExec 函数 （属于 WinProcs单元） 
· 声明形式   UNIT WinExec(LPCSTR lpCmdLine, UINT uCmdShow); 
 [例] var SDir:string; 
SetLength(SDir,144); 
GetWindowsDirectory(PChar(SDir),144); 
SetLength(SDir,StrLen(PChar(SDir))); 
SDir:=SDir+'\notepad.exe'+' '+savedialog1.FileName; 
WinExec(PChar(SDir), SW_SHOWMAXIMIZED); 
    注意：如果 SDir 不是有效路径不会提示错误。 
[例] winexec('command.com /c copy *.* c:\',SW_Normal); 
[例] winexec('start abc.txt');   2）使用 ShellExecute 函数（属于ShellAPI单元） 
它的几个参数： 
· hwnd：窗体的句柄； 
· lpOperation：打开程序执行的操作，共预留有"open"、"explore"、 "print"三种方式，此参数可以省略，此时将依据打开的文件（lpFile）的类型执行相应的操作，比如：如果lpFile为一文本文件，那么将会在与该文件相关联的程序中打开它 
· lpFile：文件名；  
· lpParamerters：打开文件时所需的参数；  
· lpDirectory：文件名所在的路径，当然，一般来说，在Windows中登记过的程序（如WinWord）不必提供此参数； 
· nShowCmd：打开文件后程序窗体如何显示。  （1）运行可执行文件 
  [例] 以"记事本"为例 
procedure TForm1.OpenBtnClick(Sender:TObject);  
 begin ShellExecute(handle,'open','notepad.exe',nil,nil,SW_ShowNormal);  end;  
   此外，ShellExeCute() 还可以进行链接网络。 
 [例] procedure TForm1.HttpClick(Sender: TObject);  
begin  
  ShellExecute(handle,'open','http://liangming.163.net', nil,nil,SW_ShowNormal);  
end; （2）打开在Windows注册的外部文件   
    如果一个文件已经在Windows的注册表中注册了，那我们就可以通过以下方法运行他，首先要在uses部分加入： uses Shellapi;  
接着定义一个过程  
procedure URLink(URL:PChar); 
begin 
  ShellExecute(0, nil, URL, nil, nil, SW_NORMAL); 
end;  
在要调用的地方使用： URLink('Readme.txt');  
要链接到主页就改用：   URLink('http://vortex.yeah.net');  
要发邮件就要在邮件地址前加： mailto URLink('mailto:[email protected]');  
如果是打开外部执行程序的话，那么也可以直接调用。

Answer 7

用ShellExecute要记得uses Shellapi

Answer 8

WinExec('C:\WINNT\system32\calc',SW_SHOW);