如何在程序中调用WIN内部附件里“计算器”,并能安全返回呢?(65分)

J

jgb007

Unregistered / Unconfirmed
GUEST, unregistred user!
我想在程序中增加一个“计算器” ,自己编太麻烦了,
还是调用WIN的比较简单,该如何做呢?
 
用OLE自动化服务器,用Olecontainer1来实现!
 
Winexec('Calc',SW_NORMAL);
 
uese
shellapi

ShellExecute(handle,'open','calc.exe','','',SW_SHOWNORMAL);
 
>>并能安全返回呢
是不是说你要将其结果返回到你程序的一个变量上?
 
在USES 中调用shellapi单元,然后输入以下代码
proceudre TForm1.button1click(sender:TObject);
begin
ShellExecute(handle,'open','calc.exe','','',SW_SHOWNORMAL);
end;
 
什么叫安全返回
 
免费的rxlib控件有一个计算器,如果你的计算要求不太高,用一个这个控件,保证“安全”返回。
因为你都不用离开。
 
"计算器"不是有"复制/粘贴"菜单的吗? 就是为了方便你取得返回值的.
你发送ctrl+c,ctrl+v就可以了
 
cakk同志,好象还要找到菜单的啊,我用spy++狂找半天都不知道找那个啊,要求不高的话,找个计算器控件凑合凑合着解决容易一点吧,大不了自己做个计算器算了。用rxlib的计算器控件吧,虽然难看点,但用用倒不
成问题。
 
job007:你继续讨论不行嘛?干嘛又来一个job009?
没分数大家一样可以回答你的问题啊。
 
用WINEXEC('C:/WINDOWS/CALC.EXE',SW_NORMAL);
或者SHELLEXECUTE(HANDLE,NIL,PCHAR('CLAC.EXE'),NIL,NIL,SW_SHOWNORMAL);
记得在USES中加上SHELLAPI;
 
多人接受答案了。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
2K
DelphiTeacher的专栏
D
顶部