mirror of
https://github.com/cheat-engine/cheat-engine
synced 2026-08-15 02:26:08 -04:00
57 lines
1.2 KiB
ObjectPascal
57 lines
1.2 KiB
ObjectPascal
unit settingsunit;
|
|
|
|
interface
|
|
|
|
uses windows, forms,classes, SysUtils,dialogs;
|
|
|
|
|
|
var
|
|
trainerfile: TFileStream;
|
|
protect:boolean;
|
|
tempdir: string;
|
|
|
|
function openself: boolean;
|
|
|
|
implementation
|
|
|
|
function openself: boolean;
|
|
var temp: integer;
|
|
buf: pchar;
|
|
begin
|
|
|
|
getmem(buf,100);
|
|
GetTempPath(100,buf);
|
|
tempdir:=buf;
|
|
freemem(buf);
|
|
|
|
//use c:\bla.exe till the final build (just to simplify debugging)
|
|
try
|
|
{$ifdef trainerbeta}
|
|
trainerfile:=TFileStream.create('c:\tutorialhack.exe',fmOpenRead or fmShareDenyNone);
|
|
{$else}
|
|
trainerfile:=TFileStream.create(application.exename,fmOpenRead or fmShareDenyNone);
|
|
{$endif}
|
|
//find out of this is a patcher or a memorybrowser
|
|
trainerfile.Position:=80;
|
|
|
|
trainerfile.Readbuffer(temp,4);
|
|
trainerfile.position:=temp;
|
|
|
|
trainerfile.ReadBuffer(temp,4);
|
|
|
|
protect:=temp=$22322;
|
|
|
|
if temp=$111111 then
|
|
result:=true
|
|
else
|
|
result:=false;
|
|
|
|
except
|
|
result:=false;
|
|
messagedlg('There was an error while trying to read the trainer. Or the file got changed(like a exe-compresser), or you''re using an old unpatched version of win 95 or earlier',mterror,[mbok],0);
|
|
application.Terminate;
|
|
end;
|
|
|
|
end;
|
|
|
|
end.
|