Mensajes de Win

[delphi.com.ar]

Te recomiendo seguir la idea de román, y como extra te doy una ayudita de como buscar el handle del botón de inicio:

var
  hTray,
  hButton: HWND;
begin
  hTray := FindWindow('Shell_TrayWnd', Nil);
  if hTray <> 0 Then
  begin
    hButton := FindWindowEx(hTray, 0, 'Button', nil);

    Caption := IntToStr(hButton);
  end;
end;

Saludos!