Builder.cz - Informacni server o programovani

v roce 1990 jsem si koupil knizku o pascalu a delphi je pascal, ne ?! :-D

ty volas funkci s parametrem C: Cardinal, ale nize uvedena funkce ma jako posledni parametr
typ SIZE_T, takze se to mezi verzema asi zmenilo, ne?!
takze upravit typ C na SIZE_T a snad to klapne :-)



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

[quote="Rival"]Prosím o radu. Volání níže uvedené funkce v Delphi 2009 je bezproblémové. Ale v Delphi XE7 hlásí chybu E2033 u proměnné C. dwProcessId: DWORD; phandle: THandle; P: Pointer; C: Cardinal; PB: Pointer; B: Byte; if not ReadProcessMemory(phandle,P,@PB,1,C) then break; // zde hlásí chybu Děkuji za pomoc...[/quote] v roce 1990 jsem si koupil knizku o pascalu a delphi je pascal, ne ?! :-D ty volas funkci s parametrem C: Cardinal, ale nize uvedena funkce ma jako posledni parametr typ SIZE_T, takze se to mezi verzema asi zmenilo, ne?! takze upravit typ C na SIZE_T a snad to klapne :-) function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: SIZE_T; var lpNumberOfBytesRead: SIZE_T): BOOL; stdcall;

Citovat příspěvek

Prosím o radu. Volání níže uvedené funkce v Delphi 2009 je bezproblémové. Ale v Delphi XE7 hlásí chybu E2033 u proměnné C.

function SendMessageRetStr(wnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): String;
var
dwProcessId: DWORD;
phandle: THandle;
P: Pointer;
C: Cardinal;
PB: Pointer;
B: Byte;
begin
Result := '';
GetWindowThreadProcessID(wnd, pointer(dwProcessId));
phandle := OpenProcess(PROCESS_VM_READ, False, dwProcessId);
if phandle = 0 then exit;
P := Pointer(SendMessage(wnd, uMsg, wParam, lParam));
PB := nil;
B := 0;
repeat
if not ReadProcessMemory(phandle,P,@PB,1,C) then break; // zde hlásí chybu
B := Byte(PB);
if B <> 0 then begin
Result := Result + Chr(B);
end;
P := Pointer(DWord(P)+1);
until (B=0);

CloseHandle(phandle);
end;

Děkuji za pomoc...

Prosím o radu. Volání níže uvedené funkce v Delphi 2009 je bezproblémové. Ale v Delphi XE7 hlásí chybu E2033 u proměnné C. function SendMessageRetStr(wnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): String; var dwProcessId: DWORD; phandle: THandle; P: Pointer; C: Cardinal; PB: Pointer; B: Byte; begin Result := ''; GetWindowThreadProcessID(wnd, pointer(dwProcessId)); phandle := OpenProcess(PROCESS_VM_READ, False, dwProcessId); if phandle = 0 then exit; P := Pointer(SendMessage(wnd, uMsg, wParam, lParam)); PB := nil; B := 0; repeat if not ReadProcessMemory(phandle,P,@PB,1,C) then break; // zde hlásí chybu B := Byte(PB); if B <> 0 then begin Result := Result + Chr(B); end; P := Pointer(DWord(P)+1); until (B=0); CloseHandle(phandle); end; Děkuji za pomoc...

Citovat příspěvek