XE2 Bios Daten auslesen

[bernhard_LA]

OK der Ansatz zum Auslesen der BIOS Daten spielt nur bis Win 2K ....

muss diese Funktion wohl entsorgen

[s3rh47]

ReadProcessMemory und WriteProcessMemory funktoniert beim Delphi sieben einwandfrei. Aber beim xe2 immer diese trottole fehler bekomme ich. Ich kann kein mehr lösung finden

[DCC Fehler] Unit1.pas(59): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

bitte hilfe :S

Code:

uses
Windows, Messages;

{$R Loader.RES}

var
  si : Startupinfo;
  pi : Process_Information;
  NewData : array[0..1] of byte = ($90,$90);
  NewDataSize : DWORD;
  Bytesread : DWORD;
  Olddata : array[0..1] of byte;

begin 
   NewDataSize := sizeof(newdata);
  IF CreateProcess(nil,'Example.exe',nil,nil,FALSE,
                              Create_Suspended,nil,nil,si,pi) = true then

  begin
    ReadProcessMemory(pi.hprocess,Pointer($403CEA),@olddata,2,bytesread);
    if (olddata[0] = $75) and (olddata[1] = $19) then
    begin
      WriteProcessMemory(pi.hProcess, Pointer($403CEA), @NewData, NewDataSize, bytesread);
      ResumeThread(pi.hThread); 
    end else
  begin
    Messagebox(0,pchar('Bytes not found! Wrong version?...'),pchar('Error'),mb_iconinformation);
    TerminateProcess(PI.hProcess,0);
  end; 
  CloseHandle(PI.hProcess);
  CloseHandle(PI.hThread);
end;
end.

[himitsu]

Schau was die Funktion für Parametertypen haben will und dann paß' deine Variablen daran an.

[s3rh47]

function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer;
nSize: SIZE_T; var lpNumberOfBytesRead: SIZE_T): BOOL; stdcall;

1. Parameter = Thandle
2. Parameter = Pointer
3. Parameter = Pointer
4. Parameter = SIZE_T
5. Parameter = SIZE_T

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
 FileName : String;
 StartInfo : TStartUpInfo;
 ProcInfo : TProcessInformation;
 AllGood :  Boolean;
 ReadByte : SIZE_T;
 OrjinalBytes : byte;
begin

  OrjinalBytes:=($90);
  FileName := 'Beispiel.exe';
  //Fill the PRocinfo and Startinfo with a buffer
  FillChar(StartInfo,SizeOf(TStartupInfo),#0);
  FillChar(ProcInfo,SizeOf(TProcessInformation),#0);
  //Lets "Try" to create the paltalk process in a suspended state
  AllGood :=  CreateProcess(Pchar(Dosya),nil,nil,nil,False,CREATE_SUSPENDED,nil,nil,StartInfo,ProcInfo);

  if Allgood then
  begin

  ShowMessage('Geht Schon');

   ReadProcessMemory(PRocInfo.hProcess,Pointer($00146565),@OrjinalBytes,1,1,ReadByte);

  end;

   ResumeThread(ProcInfo.hThread);

   CloseHandle(ProcInfo.hProcess);

end;

Ist wieder gleich :S

[Luckie]

Da stimmt wohl der Aufruf mit der Deklaration nicht über ein, was die Datentypen angeht. Und was ist hier Zeile 59?

[s3rh47]

Und Warum bei Delphi7 kein problem ?

Ich habe alle Varible probiert geht nicht ! byte , word,dword, integer , Char , PChar , AnsiChar , WideChar, Pointer ,real, Extended ,string,ShorString trotzdem immer wieder gleiche Fehler...

Kann auch Assemblye !

[himitsu]

Zitat von s3rh47:

Und Warum bei Delphi7 kein problem ?

Ich habe alle Varible probiert geht nicht ! byte , word,dword, integer , Char , PChar , AnsiChar , WideChar, Pointer ,real, Extended ,string,ShorString trotzdem immer wieder gleiche Fehler...

Kann auch Assemblye !

Nicht probieren .... NACHSEHN und dann machen
Und da über VAR gemeckert wird, kann es nur lpNumberOfBytesRead sein.

PS: zähle mal deine Parameter

[s3rh47]

Also wenn ich keine Seh probleme hab , ich sehe dort 5 parameter

http://i40.tinypic.com/dmxnpy.jpg

Wo ist fehler jetzt ? Ich kann nicht mehr sehen

[DeddyH]

Was denn nun, Read oder Write? Ich habe mal gezählt:

Zitat:

Delphi-Quellcode:

ReadProcessMemory(PRocInfo.hProcess (* 1 *),
                  Pointer($00146565)(* 2 *),
                  @OrjinalBytes     (* 3 *),
                  1                 (* 4 *),
                  1                 (* 5 *),
                  ReadByte          (* 6 *));

Passt nicht ganz, oder?