Получить текст окна, где этого не может WM_GETTEXT

Она может брать текст, где этого не может делать GetWindowText(), вот собственно и все!

Должна работать и в win98, но небыло возможности проверить.... =)

Так что кому надо...

Отдельное спасибо .alex'у

program pGrabber;

uses
  windows,
  myfuncs in 'myfuncs.pas';
const 
    WM_CREATE           = $0001;
    WM_DESTROY          = $0002;
    WM_SETTEXT          = $000C;
    WM_GETTEXT          = $000D;
    WM_TIMER            = $0113;
    WM_GETTEXTLENGTH    = $000E;
    EM_GETPASSWORDCHAR  = $00D2;
    WM_COMMAND          = $0111;
var
    wc              : TWndClass;
    hwnd            : THandle;
    mMsg            : TMsg;
    ehwnd           : THandle;

function GetTextPODCursor: PChar;
var grabtext: array[0..125] of char;
    lpPoint: TPoint;
    hwnd: THandle;
begin
   GetCursorPos(lpPoint);
   hwnd := WindowFromPoint(lpPoint);
   if (SendMessage(hwnd, EM_GETPASSWORDCHAR, 0, 0) <> 0) then
   begin
       SendMessage(hwnd, WM_GETTEXT, 20, Integer(PChar(@grabtext)));
       result := PChar(@grabtext);
   end else
       result := PChar('');
   SendMessage(ehwnd, WM_SETTEXT, 0, Integer(result));
end;


//////////////////////
// Main Window Proc //
//////////////////////
function WndProc(hwnd: Thandle; lMsg, wParam, lParam: LongInt): LongInt; stdcall;
begin
   Case lMsg of
     WM_CREATE:
        begin
            SetWindowPos(hwnd,HWND_TOPMOST,0,0,0,0,SWP_NOSIZE + SWP_NOMOVE);
            SetTimer(hwnd, 55555, 2*1000, nil);
        end;

     WM_TIMER:
        begin
            if (not IsNT)then GetTextPODCursor else SpawnThreadNT('EXPLORER.EXE', GetModuleHandle(nil));
        end;

     WM_DESTROY:
        begin
            KillTimer(hwnd, 55555);
            halt(0);
        end;

   end;
   result:=DefWindowProc(hWnd, lMsg, wParam, lParam);
end;



//////////////////////
// Main Entry Point //
//////////////////////
begin
  with wc do begin
      style          := CS_HREDRAW or CS_VREDRAW;
      lpfnWndProc    := @WndProc;
      cbClsExtra     := 0;
      cbWndExtra     := 0;
      hInstance      := hInstance;
      hIcon          := 65539;
      hCursor        := 65553;
      hbrBackground  := 26214418;
      lpszMenuName   := nil ;
      lpszClassName  := 'pGClass';
  end;

  RegisterClass(wc);

  hwnd  := CreateWindow('pGClass','   pGrabber [win98/Xp v2.0]  by xZero',WS_OVERLAPPEDWINDOW and WS_DLGFRAME,400,300,260,65,0,0,hInstance,nil);
  ehwnd := CreateWindowEx(WS_EX_CLIENTEDGE, 'Edit', '',WS_CHILD or WS_VISIBLE or ES_READONLY, 5, 5, 245, 20, hwnd, 0, hInstance, nil);

  ShowWindow(hwnd, SW_SHOW);UpdateWindow(hwnd);

  while GetMessage(mMsg, hwnd, 0, 0) do
  begin
    TranslateMessage(mMsg);
    DispatchMessage(mMsg);
  end;
  Halt(mMsg.wParam);
end.

unit myfuncs;
interface
uses windows, tlhelp32;

function IsNT: boolean;
function OPTHDROFFSET(ptr: LongInt): DWORD;
function SpawnThreadNT(pszProcess: PChar; g_hModule: HMODULE): boolean;
procedure EntryPoint;


implementation
const 
        EM_GETPASSWORDCHAR  = $00D2;
        WM_SETTEXT          = $000C;
        WM_GETTEXT          = $000D;

function IsNT: boolean;
var
        osvi:   OSVERSIONINFO;
begin
    osvi.dwOSVersionInfoSize := sizeof(OSVERSIONINFO);

    if(not GetVersionEx(osvi))then
    begin
        result := FALSE;
        exit;
    end;

    if(osvi.dwPlatformId <> VER_PLATFORM_WIN32_NT)then
        result := FALSE
    else
        result := TRUE;
end;


function OPTHDROFFSET(ptr: LongInt): DWORD;
begin
    result := PImageOptionalHeader(int64(ptr) + PImageDosHeader(ptr)._lfanew + sizeof(DWORD) + sizeof(IMAGE_FILE_HEADER)).SizeOfImage;
end;


function SpawnThreadNT(pszProcess: PChar; g_hModule: HMODULE): boolean;
var
    dwProcID: DWORD;
    hToolHelp: THandle;
    pe: PROCESSENTRY32;
    hProc: THandle;
    dwSize: DWORD;
    pMem: Pointer;
    dwOldProt, dwNumBytes, i: DWORD;
    mbi: TMemoryBasicInformation;
    dwRmtThdID: DWORD;
    hRmtThd: THandle;
begin
    hToolHelp := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
    pe.dwSize := sizeof(pe);

    if(not Process32First(hToolHelp, pe))then
    begin
        result := false;
        exit;
    end;

    dwProcID := 0;
    while(Process32Next(hToolHelp, pe))do
    begin
        if(lstrcmpi(pe.szExeFile, pszProcess) = 0)then
        begin
            dwProcID := pe.th32ProcessID;
            break;
        end;

    end;

    if(dwProcID = 0)then
    begin
        result := FALSE;
                exit;
    end;

    if(GetCurrentProcessId() = dwProcID)then
    begin
        result := FALSE;
        exit;
    end;


    hProc := OpenProcess(PROCESS_ALL_ACCESS, FALSE, dwProcID);
    if(hProc = 0)then
    begin
        result := FALSE;
        exit;
    end;

    VirtualFreeEx(hProc, ptr(g_hModule), 0, MEM_RELEASE);

    dwSize := OPTHDROFFSET(g_hModule);

    pMem := VirtualAllocEx(hProc, ptr(g_hModule), dwSize, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
    if(pMem = nil)then
    begin
        result := FALSE;
        exit;
    end;

    VirtualQueryEx(hProc, pMem, mbi, sizeof(MEMORY_BASIC_INFORMATION));
    while((mbi.Protect <> PAGE_NOACCESS) and (mbi.RegionSize <> 0))do
        begin
        if((mbi.Protect and PAGE_GUARD) = 0)then
        begin
            i := 0;
            while(i < mbi.RegionSize)do
            begin
                if(not VirtualProtectEx(hProc, ptr(DWORD(pMem) + i), $1000, PAGE_EXECUTE_READWRITE, dwOldProt))then
                begin
                    result := FALSE;
                    exit;
                end;

                if(not WriteProcessMemory(hProc, ptr(DWORD(pMem) + i), Pointer(DWORD(g_hModule) + i), $1000, dwNumBytes))then
                begin
                    result := FALSE;
                    exit;
                end;
                i := i + $1000;
            end;
            pMem := Pointer(DWORD(pMem) + mbi.RegionSize);
            VirtualQueryEx(hProc, pMem, mbi, sizeof(MEMORY_BASIC_INFORMATION));
        end;
    end;

    hRmtThd := CreateRemoteThread(hProc, nil, 0, @EntryPoint, ptr(g_hModule), 0, dwRmtThdID);
    if(hRmtThd = 0)then
    begin
        result := FALSE;
        exit;
    end;
    CloseHandle(hProc);

    result := TRUE;
end;


procedure EntryPoint;
var
    grabtext        : array[0..125] of char;
    lpPoint         : TPoint;
    hwnd            : THandle;
begin
   GetCursorPos(lpPoint);
   hwnd := WindowFromPoint(lpPoint);
   if (GetParent(hwnd) <> 0)then
   begin
       SendMessage(hwnd, WM_GETTEXT, 20, Integer(PChar(@grabtext)));
       SendMessage(FindWindowEx(FindWindow('pGClass', nil), 0, 'Edit', nil), WM_SETTEXT, 0, Integer(PChar(@grabtext)));
   end;
end;

end.