Delphi获取其他进程中状态栏文本的函数

分类：Delphi 阅读 (2,149) Add comments

9月 252012

转载请注明原文地址：http://bcoder.com/delphi/delphi-code-to-get-statusbar-text-in-other-process

Delphi code to get statusbar text from other process

function GetStatusBarText(mHandle: THandle): string;
var
vBuffer: array[0..$1000] of Char;
vSize: Integer;
I: Integer;
vCount: Integer;
vProcessId: DWORD;
vProcess: THandle;
vPointer: Pointer;
vNumberOfBytesRead: Cardinal;
begin
Result := '';
vCount := SendMessage(mHandle, SB_GETPARTS, 0, 0);
if vCount &lt;= 0 then Exit;
GetWindowThreadProcessId(mHandle, @vProcessId);
vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or
    PROCESS_VM_WRITE, False, vProcessId);
vPointer := VirtualAllocEx(vProcess, nil, $1000, MEM_RESERVE or MEM_COMMIT,
    PAGE_READWRITE);
try
    for I := 0 to vCount - 1 do
    begin
      vSize := SendMessage(mHandle, SB_GETTEXT, I, 0) + 1;
      SendMessage(mHandle, SB_GETTEXT, I, Integer(vPointer));
      ReadProcessMemory(vProcess, vPointer, @vBuffer[0],
        vSize, vNumberOfBytesRead);
      Result := Result + #9 + vBuffer;
    end;
    Delete(Result, 1, 1);
finally
    VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE);
    CloseHandle(vProcess);
end;
end;

function GetStatusBarText(mHandle: THandle): string;

var

vBuffer: array[0..$1000] of Char;

vSize: Integer;

I: Integer;

vCount: Integer;

vProcessId: DWORD;

vProcess: THandle;

vPointer: Pointer;

vNumberOfBytesRead: Cardinal;

begin

Result := '';

vCount := SendMessage(mHandle, SB_GETPARTS, 0, 0);

if vCount <= 0 then Exit;

GetWindowThreadProcessId(mHandle, @vProcessId);

vProcess := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or

PROCESS_VM_WRITE, False, vProcessId);

vPointer := VirtualAllocEx(vProcess, nil, $1000, MEM_RESERVE or MEM_COMMIT,

PAGE_READWRITE);

try

for I := 0 to vCount - 1 do

begin

vSize := SendMessage(mHandle, SB_GETTEXT, I, 0) + 1;

SendMessage(mHandle, SB_GETTEXT, I, Integer(vPointer));

ReadProcessMemory(vProcess, vPointer, @vBuffer[0],

vSize, vNumberOfBytesRead);

Result := Result + #9 + vBuffer;

end;

Delete(Result, 1, 1);

finally

VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE);

CloseHandle(vProcess);

end;

打赏

Leave a Reply Cancel reply