移动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;