或许应该试试WM_COMMAND、WM_SYSCOMMAND
如果说错别介意,我也是菜鸟。
如果说错别介意,我也是菜鸟。
解决方案 »
- delphi用odac访问数据库!
- 请问快速取得memo1的n..n行的内容
- 编译时没问题,程序运行时出错?
- 明天MM过生日!!!!!!
- 用鼠标拖动一Label进Memo,如何动态改变Memo当前光标位置跟随鼠标移动
- 请问如何实现在菜单中选择已经打开的子窗体(在mdi的中)
- 怎么样获得Access的表的字段名称?解决马上给分!
- 关于Delphi6报表设计控件ReportBuolder6的Chart问题:
- 关于ADO连接ORACLE的问题 ORA-00905: 缺少关键字
- 高手请注意:两台通过代理上网的机器如何建立tcpip通讯
- 请帮我构造一个sql语句
- 300分请各位讨论,如何控制OICQ……
如果只是打开开始菜单的话,可以模拟按键CTRL+ESC呀
procedure hideStartbutton(visi:boolean);
Var
Tray, Child : hWnd;
C : Array[0..127] of Char;
S : String;
Begin
Tray := FindWindow('Shell_TrayWnd', NIL);
Child := GetWindow(Tray, GW_CHILD);
While Child <> 0
do Begin
If GetClassName(Child, C, SizeOf(C)) > 0
Then Begin
S := StrPAS(C);
If UpperCase(S) = 'BUTTON'
then begin
// IsWindowVisible(Child)
//startbutton_handle:=child;
If Visi
then ShowWindow(Child, 1)
else ShowWindow(Child, 0);
end;
End;
Child := GetWindow(Child, GW_HWNDNEXT);
End;
End;因为它只是一个button,所以,你可以这样发消息,模拟鼠标按键:
SendMessage(FSecondChild,WM_LBUTTONDOWN,NULL,NULL); //按下
SendMessage(FSecondChild,WM_LBUTTONUP,NULL,NULL); //抬起
兄弟手头没有例子,不过幸好这个函数不复杂,自己试一下。