Delphi 7 - Ajude-me Plx (Unit1)

[dragonpool12 5]

Bom estou tentando montar um projeto más estou com algums problemas erros, lol 4 vez que mecho no delphi ja estou pegando um pouco da pratica bom o erro esta aqui más como disse só mecho ums 4 dias e não sei ainda arrumar.

 

Esse ai é o (Unit1) quando eu clico F9 fica vermelho na ajuda ae via porfavor!!.

Se for necessário de mais coisas para min colocar aqui do meu projeto avisa que eu coloco.

 

unit Unit1;

 

interface

 

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, TlHelp32, StdCtrls, Buttons, XPMan, jpeg, ShellApi;

const PROCESS_NAME = 'GunBound.gme';

//----»» Power User Endereço ««----

pu:Array [0..1]of DWORD=(

$0090DF6D,

$0090DFDD

);

//----»» Mobiles Endereço ««----

maya:Array [0..1]of DWORD=(

$0090CF98,

$0090CF9A

);

 

type

TForm1 = class(TForm)

TimerPU: TTimer;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

TimerMaya: TTimer;

TimerOpenProcess: TTimer;

procedure TimerOpenProcessTimer(Sender: TObject);

procedure TimerPUTimer(Sender: TObject);

procedure CheckBox2Click(Sender: TObject);

procedure CheckBox1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

 

var

Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

Procedure power_user;

begin

valor:=0;

for i:=0 to Length(pu)-1 do

begin

writeprocessmemory(hprocesso, Pointer(pu), addr(valor), 8, Bytes);

end;

end;

 

Procedure maya_end;

begin

valor:=126;

for i:=0 to Length(maya)-1 do

begin

writeprocessmemory(hprocesso, Pointer(maya), addr(valor), 8, Bytes);

end;

end;

 

function GetProcessID(ProcessName: String): DWORD;

var hSnapshot: Cardinal;

hProcessEntry: TProcessEntry32;

begin

Result:=0;

hSnapshot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);

hProcessEntry.dwSize:=SizeOf(TProcessEntry32);

if not (Process32First(hSnapshot, hProcessEntry)) then

Exit;

repeat

if (ProcessName = hProcessEntry.szExeFile) then

Result := hProcessEntry.th32ProcessID;

until not (Process32Next(hSnapshot, hProcessEntry));

procedure TForm1.TimerPUTimer(Sender: TObject);

begin

exec := FindWindow('Softnyx', nil);

if exec <> 0 then begin

GetWindowThreadProcessId(exec, @ProcessoId);

hProcesso := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessoId);

 

if CheckPU.checked = true then

power_user;

end;

 

procedure TForm1.CheckBox2Click(Sender: TObject);

begin

TimerMaya.enabled:=true;

CheckMaya.enabled:=false;

end;

 

procedure TForm1.CheckBox1Click(Sender: TObject);

begin

timerpu.enabled:=true;

CheckPU.enabled:=false;

end;

 

end;

 

procedure TForm1.TimerOpenProcessTimer(Sender: TObject);

var

WND: HWND;

ProcessId: DWORD;

BytesWritten: DWORD;

hProcess: THandle;

i: Integer;

Write: DWORD;

begin

WND := FindWindow('Softnyx', nil);

Write := 0;

if WND <> 0 then

begin

GetWindowThreadProcessId(WND, @ProcessId);

hProcess := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId);

try

if hProcess = INVALID_HANDLE_VALUE then begin

raise Exception.Create('Invalid Handle');

exit;

end;

exec := FindWindow('Softnyx', nil);

if exec <> 0 then begin

GetWindowThreadProcessId(exec, @ProcessoId);

hProcesso := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessoId);

end;

begin

exec := FindWindow('Softnyx', nil);

if exec <> 0 then begin

GetWindowThreadProcessId(exec, @ProcessoId);

hProcesso := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessoId);

end;

end;

finally

TimerOpenProcess.enabled:=false;

end;

end;

 

end.

[priceown' 9]

área errada.

Fechado.