28-02-2009
|
Miembro
|
|
Registrado: feb 2009
Posts: 17
Poder: 0
|
|
Ayuda con dll - API's
:S bueno hola soy algo nuevo en el foro y en delphi xP pero bueno queria que le hecharan un ojo a este codigo fuente y me digan los errores xP! xq cuando compilo me salen varios errores:
Cita:
library Project2;
uses
SysUtils,
Classes;
Windows;
{$R *.res}
const
MineralAdress1dword=$0040E07A;
//MineralAddress2dword=$00411601;
procedure Main;
////////////////////////////////////////////////////////////////////
// /////
/// Aciendo Hotkey /////
/// /////
///////////////////////////////////////////////////////////////////
procedure Hotkey;
begin
while(true) do
begin
if GetAsyncKeyState($9)<>0 then
begin
//ZChatOutput('HI!!!', 2, 0, $FFFFFFFF);
VirtualProtect(pointer($0040E07A), 1, PAGE_EXECUTE_READWRITE, nil);
//modificando address
pword($0040E07A)^:=$10000;
sleep(100);
pword($0040E07A)^:=$10000;
sleep(150);
end;
sleep(30);
end;
end;
/////////////////////////////////////////////////
/// Creando Thread ////
/////////////////////////////////////////////////
var
c:cardinal;
begin
CreateThread(nil, 0, @Hotkey, nil, 0, c);
if c=0 then
MessageBox(0, 'Unable to create thread.', 'ERROR!', MB_OK or MB_ICONERROR) else
MessageBox(0, 'Thread sucessfully created!', 'Sucess!', MB_OK);
//MessageBox(0, 'Happy Hacking by GunMiNiHo' , 'GunMiNiHo //Productions', MB_OK or MB_ICONERROR)
end.
|
aqui una imagen del error al compilar:
|