Para meu Amigo e_gama !!!!

Question

CAro amigo, Voc� me enviou o c�digo a seguir, s� que quando chega na linha 2, d� erro avisando que ExtendedStyle n�o foi identificado!! Me ajude .... Obrigado!!  Application.Initialize;   ExtendedStyl...

E_gama · Answer

Por favor me desculpe, segue codigo correto:

var
  ExtendedStyle : Integer;

begin
  Application.Initialize;
  ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW
                                                 AND NOT WS_EX_APPWINDOW);
  Application.CreateForm(TAuditorMainForm, AuditorMainForm);
  Application.ShowMainForm := False;
  Application.Run;
end.

E_gama · Answer

Ah, esqueci das �Uses�. Segue �.DPR� completo:

program Project1;

uses
  Windows,
  Forms,
  Unit1 in �Unit1.pas� ;

var
  ExtendedStyle : Integer;

begin
  Application.Initialize;
  ExtendedStyle := GetWindowLong(Application.Handle, GWL_EXSTYLE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW
                                                 AND NOT WS_EX_APPWINDOW);
  Application.CreateForm(TForm1, Form1);
  Application.ShowMainForm := False;
  Application.Run;
end.