mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
125 lines
2.2 KiB
ObjectPascal
Executable file
125 lines
2.2 KiB
ObjectPascal
Executable file
unit frmDriverLoadedUnit;
|
|
//just something funny
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$ifdef windows}windows,{$endif} LCLIntf, Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls,
|
|
StdCtrls, betterControls;
|
|
|
|
type
|
|
|
|
{ TfrmDriverLoaded }
|
|
|
|
TfrmDriverLoaded = class(TForm)
|
|
Label1: TLabel;
|
|
Timer1: TTimer;
|
|
Timer2: TTimer;
|
|
procedure FormShow(Sender: TObject);
|
|
procedure Timer1Timer(Sender: TObject);
|
|
procedure Timer2Timer(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
procedure ShowDriverLoaded;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
uses mainunit, pluginexports;
|
|
|
|
|
|
procedure ShowDriverLoaded;
|
|
var
|
|
frmDriverLoaded: TfrmDriverLoaded;
|
|
s,s2,t: string;
|
|
i: integer;
|
|
|
|
a,b: array [0..1] of boolean;
|
|
|
|
|
|
begin
|
|
// TfrmDriverLoaded.ClassName;
|
|
{$IFDEF windows}
|
|
s:='';
|
|
s2:='';
|
|
for i:=1 to 5+random(5) do
|
|
begin
|
|
s:=s+chr(31+random(96));
|
|
s2:=s2+chr(31+random(96));
|
|
end;
|
|
|
|
a[0]:=true;
|
|
a[1]:=false;
|
|
for i:=0 to random(10) do
|
|
begin
|
|
a[0]:=not a[0];
|
|
a[1]:=not a[1];
|
|
t:=s;
|
|
s:=s2;
|
|
s2:=t;
|
|
end;
|
|
|
|
|
|
frmDriverLoaded:=TfrmDriverLoaded.Create(nil);
|
|
if a[0] then frmDriverLoaded.caption:=s else frmDriverLoaded.caption:=s2;
|
|
|
|
|
|
|
|
frmDriverLoaded.show;
|
|
|
|
|
|
b[0]:=false;
|
|
b[1]:=false;
|
|
while (b[0]=false) and (b[1]=false) do
|
|
begin
|
|
application.ProcessMessages;
|
|
b[0]:=IsWindowVisible(FindWindow('Window',pchar(s)));
|
|
b[1]:=IsWindowVisible(FindWindow('Window',pchar(s2)));
|
|
end;
|
|
|
|
if (a[0]<>b[0]) or (a[1]<>b[1]) or (a[0]=a[1]) or (b[0]=b[1]) then
|
|
begin
|
|
TerminateProcess(GetCurrentProcess,0);
|
|
ExitProcess(0);
|
|
MainForm.free;
|
|
application.Terminate;
|
|
while true do ;
|
|
end;
|
|
|
|
frmDriverLoaded.timer1.Enabled:=true;
|
|
{$ENDIF}
|
|
|
|
end;
|
|
|
|
procedure TfrmDriverLoaded.Timer1Timer(Sender: TObject);
|
|
var s: integer;
|
|
begin
|
|
{$IFDEF windows}
|
|
s:=AlphaBlendValue-2;
|
|
AlphaBlendValue:=s;
|
|
if s<=0 then
|
|
close;
|
|
{$ENDIF}
|
|
end;
|
|
|
|
procedure TfrmDriverLoaded.FormShow(Sender: TObject);
|
|
begin
|
|
top:=0;
|
|
left:=0;
|
|
end;
|
|
|
|
procedure TfrmDriverLoaded.Timer2Timer(Sender: TObject);
|
|
begin
|
|
color:=random($ffffff);
|
|
end;
|
|
|
|
end.
|
|
|