error con el parent window

[antonio peña]

buenas buenas,

tengo una aplicacion que quiero que arranque desde el un boton "mio" que sustituye al de inicio de la barra de tareas y deseo que al darle click en el boton este abra mi aplicacion.

encontre un hilo en el club pero me marca error

h := FindWindow('Shell_TrayWnd', nil);
b := TButton.Create(nil);
b.ParentWindow := h; <--- aqui marca el erro, que no esta declarado
b.Caption := 'Inicio';
b.Width := 60;
b.font.style := [fsbold];


alguien me puede auxiliar, o me puede dar otro ejemplo mas claro, pues creo el hilo que abri (de donde saque el codigo) como que esta incompleto, de antemano gracias

p.d. espero y sea el ultimo hilo publicado en el dia,

esperare aqui pacientemente sus respuesta, cualquier idea o comentario es bienvenido.....

:(

[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...


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.