error con el parent window

[Neftali [Germán.Estévez]]

A ver esá hecho en 2 minutos, pero si creas un DPR con lo siguiente funciona perfectamente y hace lo que necesitas...

Código Delphi [-]
program Project1;

uses
  Forms,
  Dialogs, Windows, StdCtrls, Graphics, Buttons;

{$R *.res}

var
  h:Integer;
  b:TButton;
begin

  Application.Initialize;
  MessageDlg('Activar el botón', mtInformation, [mbOK], 0);

  h := FindWindow('Shell_TrayWnd', nil);
  b := TButton.Create(nil);
  b.ParentWindow := h;
  b.Caption := 'Inicio';
  b.Width := 60;
  b.Height := 22;
  b.font.style := [fsbold];
  b.BringToFront;

  Application.Run;

  // Espera
  While True do begin
    sleep(100);
    Application.ProcessMessages;
  end;

end.