树
树熊133
Unregistered / Unconfirmed
GUEST, unregistred user!
谁能告诉我如何调用系统的时钟和计算器，我的系统是win2000。
您正在使用一款已经过时的浏览器！部分功能不能正常使用。
请尝试升级或使用 其他浏览器。
请尝试升级或使用 其他浏览器。
L
lyywy
Unregistered / Unconfirmed
GUEST, unregistred user!
用ShellExecute
L
lyywy
Unregistered / Unconfirmed
GUEST, unregistred user!
用法：<br>handle是integer<br>ShellExecute(handle, 'open', pchar('mailto:Leskil@public.sj.he.cn'), nil, nil, SW_SHOWNORMAL);
树
树熊133
Unregistered / Unconfirmed
GUEST, unregistred user!
该函数的头文件是什么？
L
lyywy
Unregistered / Unconfirmed
GUEST, unregistred user!
没有头文件，在uses中加入shellapi，<br>他是封装在dll中的函数，是微软的，我们在delphi中调用。
树
树熊133
Unregistered / Unconfirmed
GUEST, unregistred user!
那是直接在uses中写入ShellExecute，然后在程序中调用吗？但好象不行的，编译不同过，<br>好象是在uses中的ShellExecute处出错。
L
lyywy
Unregistered / Unconfirmed
GUEST, unregistred user!
加到这个地方如下<br>unit DTluyin;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> Grids, ComCtrls, Menus, frstatus, ExtCtrls,Tw8VW,LYThread,AdvHint,<br> AdvComm, Db, DBTables, StdCtrls, UserMan,UserLog,[red]shellapi[/red], WebLabel;<br><br>type<br> TLYMain = class(TForm)<br> StatusGrid: TDrawGrid;<br> MainMenu1: TMainMenu;<br> N1: TMenuItem;<br> Timer1: TTimer;<br> N3: TMenuItem;<br> N4: TMenuItem;<br> N5: TMenuItem;<br> N6: TMenuItem;<br> N7: TMenuItem;<br> N8: TMenuItem;<br> N9: TMenuItem;<br> StatusBar: TLyyStatusBar;<br> imgDisable: TImage;<br> imgUnHook: TImage;<br> imgHook: TImage;<br> InitMenu: TMenuItem;
L
lyywy
Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,<br> StdCtrls,shellapi;<br><br>type<br> TForm1 = class(TForm)<br> Button1: TButton;<br> Button2: TButton;<br> procedure Button1Click(Sender: TObject);<br> procedure Button2Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.DFM}<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> ShellExecute(handle, 'open', pchar('mailto:Leskil@public.sj.he.cn'), nil, nil, SW_SHOWNORMAL);<br>end;<br><br>procedure TForm1.Button2Click(Sender: TObject);<br>begin<br>ShellExecute(handle, 'open', pchar('C:/WINNT/System32/calc.exe'), nil, nil, SW_SHOWNORMAL);<br>end;<br><br>end.
Z
zhangkan
Unregistered / Unconfirmed
GUEST, unregistred user!
unit Unit1;<br><br>interface<br><br>uses<br> Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,<br> Dialogs, StdCtrls,shellapi;<br><br>type<br> TForm1 = class(TForm)<br> Button1: TButton;<br> procedure Button1Click(Sender: TObject);<br> private<br> { Private declarations }<br> public<br> { Public declarations }<br> end;<br><br>var<br> Form1: TForm1;<br><br>implementation<br><br>{$R *.dfm}<br><br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br> ShellExecute(handle, 'open', 'calc.exe', nil, nil, SW_SHOWNORMAL);<br>end;<br><br>end.<br>
树
树熊133
Unregistered / Unconfirmed
GUEST, unregistred user!
谢谢各位，再问一下，系统时间的路径是什么。
J
j_shen2000
Unregistered / Unconfirmed
GUEST, unregistred user!
调用时钟<br>winexec('RunDLL32.exe Shell32.dll,Control_RunDLL TimeDate.cpl,,0',sw_shownormal);<br>调用计算器<br>shellexecute(handle,'open',pchar('calc.exe'),nil,nil,sw_shownormal);
L
lyywy
Unregistered / Unconfirmed
GUEST, unregistred user!
同意j_shen2000
叶
叶不归
Unregistered / Unconfirmed
GUEST, unregistred user!
这样更简单，而且不用加入其它单元。<br>winexec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',9);//时间<br>winexec('calc.exe',sw_show);//计算器
江
江维
Unregistered / Unconfirmed
GUEST, unregistred user!
j_shen2000说得够清楚啦！<br>
J
Jams
Unregistered / Unconfirmed
GUEST, unregistred user!
>>
树
树熊133
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。