Como Faço Para Deixar Um Formulário Sempre Visivel

Posted by: Paulo Bezerra in DELPHI

Se for o form principal e no form2 é só colocar a propriedade FormStyle dele para fsStayOnTop. Se for form secundario é só usar a dica do nosso colega s3c, e sobrescrever esse procedimento ->

no form2 abaixo do public coloque:

procedure CreateParams(var Params: TCreateParams); override;

e coloque esta procedure

procedure TForm2.CreateParams(var Params: TCreateParams);

begin

inherited CreateParams(Params);

Params.WndParent := 0;

end;

Procedure TForm1.Button1Click(Sender: TObject);

Begin

With Form1 do

SetWindowPos(Handle, // "handle" para a janela

HWND_TOPMOST, // controla onde vai ficar a janela (*¹)

Left, // a posição horizontal

Top, // a posição vertical

Width, // a largura

Height, // a altura

// opções de posicionamento da janela

SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); // (*²)

End;

Existem outras opções, além de HWND_TOPMOST, ou SWP_NOSIZE

Coloca o cursor antes, por exemplo de SWP_NOMOV e pressiona Control+Espaço e vai digitando S W P...

O Delphi mostra as outras opções, que você pode testar...

0 comentários

COMO INVADIR POR FTP

Posted by: Paulo Bezerra in CRACK

COMO INVADIR POR FTP

Primeiro você vai ter que pedir pro seu coputador que ele colabore pois isso é muito importante e sua maquina tem que ter mais de 200M de espaço em disco e uma memoria mais que 16SDram.

Entre no seu Ruindows, depois no MS-Bos... e digite NBTSTAT -a e o number do IP do cara que você QUER INVADIR. coloque assim "nbtstat -a 200.171.42.35

Depois é so digitar: ftp 200.171.42.35

digite "user ~quote /root" e depois digite "send 200.171.42.35 c:"

Pronto, agora é so usar o seu computador como estivesse usando o dele, começe a deletar tudo, entre no Cd/ Windows e delete o Explorer.exe e tudo mais.....

Mensagens apenas reflitam, pense nisso....

0 comentários

Formulários independentes no Delphi, estilo MSN

Posted by: Paulo Bezerra in DELPHI

Formulários independentes no Delphi, estilo MSN

Criar formulários no estilo do MSN, onde cada janela de bate-papo fica independente da aplicação, é muito fácil no Delphi. Para isto, basta sobrepor o método CreateParams no formulário desejado.

No exemplo abaixo eu criei um formulário (frmMSN) que é utilizado por outras duas janelas com essas características.

O resultado: todos os formulários herdados deste modelo ficaram em janelas independentes da aplicação, você pode observá-los na barra de tarefas do windows, no desktop, como na imagem acima:

type

TfrmMSN = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

protected

procedure CreateParams(var Params: TCreateParams);

override;

end;

implementation

{$R *.dfm}

procedure TfrmMSN.CreateParams(var Params: TCreateParams);

begin

inherited;

Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;

Params.WndParent := GetDesktopWindow;

end;

merito http://www.alexandrejose.com

interessante tambem:

procedure TfrmCadForn.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
ExStyle := ExStyle OR WS_EX_APPWINDOW ;
WndParent := Application.Handle;
end;
end;

A mudança foi feita de WndParent := GetDesktopWindow para WndParent := Application.Handle

0 comentários