请教，如何调出Windows的日历？

[gzmhero]

[gzmhero]

在程序运行时按按钮或选择菜单然后弹出系统的日历窗口。
应该是调用API实现，或者给系统发消息。
实在不行，就自己做一个了。

[arnoldshao]

up

[handsome1234]

sadfdssafd

[lcyfxm]

upupup

[hnxrm]

var
da:Thandle;
begin
da:=finwindow(TaryClockWClass,nil);
SendMessage(da, WM_LBUTTONDOWN, 0, 0);
end;

[wilddragon]

天生我才必有用

[gzmhero]

To:hnxrm(浪子):
FindWindow的参数不对，找不到窗口。

[gzmhero]

无人。

[lianyang]

up

[wilddragon]

gz

[hnxrm]

da:=finwindow(TrayClockWClass,nil);

[hnxrm]

这次应该正确了。

[gzmhero]

老兄，TrayClockWClass是什么？
变量，字符串，在哪里定义的？
帮助上找不到的。

[wilddragon]

期待答案

[gzmhero]

没用，找不到，TrayClockWClass是Shell_TrayWnd上的一个控件，无法实现。

[hnxrm]

时钟的类名，你用SPY就可以找到的。

[咚咚咚咚咚咚]

你会用ShellExcute吗？

[咚咚咚咚咚咚]

如果会用，就如下运行
rundll32.exe shell32.dll,Control_RunDLL timedate.cpl

[咚咚咚咚咚咚]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ShellAPI;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle,'open','rundll32.exe',' shell32.dll,Control_RunDLL timedate.cpl','',SW_SHOW );
end;

end.

[gzmhero]

厉害，厉害。