Kleine Hilfe zu WriteProcessMemory gesucht...

[darius83]

(15.09.2012, 22:00)sILeNt heLLsCrEAm schrieb: Z.B. so...

[code=Delphi]type
private
Procedure Hotkeyused( var Msg: TWMHotkey ); message WM_HOTKEY;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Beispiele
RegisterHotkey (Handle, 1, 0, VK_NUMPAD0);
RegisterHotkey (Handle, 2, 0, VK_NUMPAD1);
RegisterHotkey (Handle, 3, 0, VK_NUMPAD2);
RegisterHotkey (Handle, 4, 0, VK_NUMPAD3);
RegisterHotkey (Handle, 5, 0, VK_NUMPAD4);
RegisterHotkey (Handle, 6, 0, VK_NUMPAD5);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
// Hotkeys wieder freigegeben...
UnregisterHotKey(Handle, 1);
UnregisterHotKey(Handle, 2);
UnregisterHotKey(Handle, 3);
UnregisterHotKey(Handle, 4);
UnregisterHotKey(Handle, 5);
UnregisterHotKey(Handle, 6);
end;

Procedure TForm1.Hotkeyused( Var msg: TWMHotkey );
Begin
// - Hotkey Num0
If msg.hotkey = 1 Then Begin
...
end // Hotkey Num0 Funktion beendet
else

// - Hotkey Num1
If msg.hotkey = 2 Then Begin
...
end // Hotkey Num1 Funktion beendet
else

// - Hotkey Num2
If msg.hotkey = 3 Then Begin
...
end // Hotkey Num2 Funktion beendet
else

...
...
...

end;[/code]

Und wo ist da der Unterschied zu meiner Version, ausser dass ich die hotkeys erst registriere, wenn das Spiel läuft und ich meinen Keys via Variable eine ID zuweise?

[code=delphi]
const
ID = $FF;
//...
type
TWMHotkey = record
Msg: Cardinal;
idHotKey: Word;
Modifiers: Integer;
VirtKey: Integer;
end;
//...
private
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
//...
procedure Start();
//...
RegisterHotKey(Form1.Handle, ID, MOD_Alt, Ord('A'));
RegisterHotKey(Form1.Handle, ID+1, MOD_Alt, Ord('B'));
//...
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
//...
UnRegisterHotKey(Form1.Handle, ID);
UnRegisterHotKey(Form1.Handle, ID+1);
//...
procedure TForm1.WMHotKey(var Msg: TWMHotkey);
begin
case Msg.IdHotKey of
ID:
begin
ChangeGoldHack();
end;
ID+1:
begin
ChangeEnergieHack();
end;
// Abhängig von der ID wird entschieden, was getan werden soll.
end;
inherited;
end;
[/code]

LG Darius83