Delphi獲取狀態欄文本內容

Delphi獲取其它程序的狀態欄文本內容，在這裡寫成了一個Delphi函數，歡迎大家使用，學習Delphi的，希望與你共同學習進步：

vIEw source print? 01 function GetStatusBarText(mHandle: THandle): string; 02 var 03 vBuffer: array[0..$1000] of Char; 04 vSize: Integer; 05 I: Integer; 06 vCount: Integer; 07 vProcessId: DWord; 08 vProcess: THandle; 09 vPointer: Pointer; 10 vNumberOfBytesRead: Cardinal; 11 begin 12 Result := ''; 13 vCount := SendMessage(mHandle, SB_GETPARTS, 0, 0); 14 if vCount <= 0 then Exit; 15 GetWindowThreadProcessId(mHandle, @vProcessId); 16 vProcess := OpenProcess(PROCESS_VM_OperaTION or PROCESS_VM_READ or 17     PROCESS_VM_WRITE, False, vProcessId); 18 vPointer := VirtualAllocEx(vProcess, nil, $1000, MEM_RESERVE or MEM_COMMIT, 19     PAGE_READWRITE); 20 try 21     for I := 0 to vCount - 1 do 22     begin 23       vSize := SendMessage(mHandle, SB_GETTEXT, I, 0) + 1; 24       SendMessage(mHandle, SB_GETTEXT, I, Integer(vPointer)); 25       ReadProcessMemory(vProcess, vPointer, @vBuffer[0], 26         vSize, vNumberOfBytesRead); 27       Result := Result + #9 + vBuffer; 28     end; 29     Delete(Result, 1, 1); 30 finally 31     VirtualFreeEx(vProcess, vPointer, 0, MEM_RELEASE); 32     CloseHandle(vProcess); 33 end; 34 end;