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:
Código:
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!