移动Windows的开始按钮

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 程序开发 > 编程语言 > Delphi > 综合文章

移动Windows的开始按钮

作者:未知时间:2005-08-07 20:58 出处:编程爱好者网站责编:chinaitpower

摘要：移动Windows的开始按钮

利用下面的两个函数移动Windows的“开始”按钮。

uses
  Windows;

Var
TBHwnd : Hwnd;
SBHwnd : Hwnd;

{ 移动“开始”按钮到你的表单上}
procedure TForm1.Button1Click(Sender: TObject);
Begin
  TBHwnd := FindWindow('Shell_TrayWnd', nil);
  SBHwnd := FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil);
  Windows.SetParent(SbHwnd,Handle);
end;

{移动“开始”按钮到任务栏上}
procedure TForm1.Button2Click(Sender: TObject);
begin
  MoveWindow(SbHwnd,0,0,0,0,True);
  Windows.SetParent(SbHwnd,TBHwnd);
end;

关闭本页