Ver Mensaje Individual
  #2  
Antiguo 04-10-2006
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - Espańa
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita