Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

получить текст окна под курсором

Delphi , Программа и Интерфейс , Приложения чужие

Ниже приведён листинг программы на WinAPI способный получить текст окна находящегося под курсором. 

Code:

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.
 



 

Code:

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.
 

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

Взято из http://forum.sources.ru

Статья получить текст окна под курсором раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Приложения чужие ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Rambler's Top100
14.12.2017 15:52:55/0.029912948608398/0