1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

var
        SvrH: THandle;
        by: array[1..256] of byte;
        temp: string;
        CountInt1, BytesRead, CountInt2: cardinal;

begin
        SvrH := OpenProcess(PROCESS_ALL_ACCESS, false, 1084); //1084 steht da weil ich per TaskManager die ID weis und leider kein Fenster Handle hab um die ID irgendwo her zukriegen. Jemand Vorschläge ??
        if SvrH > 0 then
                ShowMessage('Handle!');

        CountInt1 := $1;
        repeat
                ReadProcessMemory(SvrH, Pointer(CountInt1), Pointer(@by), Length(edit1.Text), BytesRead);

                for CountInt2 := 1 to Length(Edit1.Text) do
                        temp[CountInt2] := Chr(by[CountInt2]);

                CountInt1 := CountInt1 + 1;
        until (CountInt1 = $FFFFFFFF) OR (temp = Edit1.Text);

        ShowMessage('Addy: '+IntToStr(CountInt1));

        CloseHandle(SvrH);					

1:

ReadProcessMemory(SvrH, Pointer(CountInt1), by, Length(edit1.Text), BytesRead);					

1:

ReadProcessMemory(SvrH, Pointer(CountInt1), Integer(@by), Length(edit1.Text), BytesRead);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

by : array of char;
bytes_read : Cardinal;
...
...
SetLength(by,Length(Edit1.Text));  // Größe festlegen
...
offset:=0;  // Standardmäßig bei 0
ReadProcessMemory(hProcess,Ptr(offset),by,sizeof(by),bytes_read);
...
...
Edit1.Text:=StrPas(by);  // weiss nich mehr genau obs so war aber so in der art