API - barra do iniciar (mudar posicao)

Top  Previous  Next

// mudar a posicao da barra do iniciar... (testei e nao fun... a revista

// disse que só fun em 98...)

 

uses ShellApi;

 

{$R *.DFM}

 

procedure TForm1.Button1Click(Sender: TObject);

var

  Barra: TAppBarData;

  H: HWND;

begin

  with Barra do

  begin

    H := 0;

    cbSize := SizeOf(TAppBarData);

    H := FindWindow('Shell_Traywnd', nil);

    if H <> 0 then

    begin

      hWnd    := H;

      SHAppBarMessage(ABM_QUERYPOS, Barra);

      RC.Top  := 0;

      RC.Left := 0;

      SHAppBarMessage(ABM_SETPOS, Barra);

      SHAppBarMessage(ABM_WINDOWPOSCHANGED, Barra);

    end;

  end;

end;