capturar edit de outro programa

[kakarlos 0]

Ola. preciso de ajuda! alguem sabe como faço para pegar o texto de um edit que esta em outro programa aberto?

obg..

[dudaxan 0]

Esse código foi criado por mim, mas acho que deve te ajudar:

Function GetOtherWindowMemoText(const sCaption : String) : WideString;
var
hWindow : THandle;
hChild : THandle;

aTemp : array[0..5000] of Char;
sClassName : String;
begin
Result := '';

hWindow := FindWindow(Nil,PChar(sCaption));

if hWindow = 0 then begin
ShowMessage('Could NOT find the other program');
exit;
end;

hChild := GetWindow(hWindow, GW_CHILD);
while hChild <> 0 do Begin
if GetClassName(hChild, aTemp, SizeOf(aTemp)) > 0 then begin
sClassName := StrPAS(aTemp);

if sClassName = 'Edit' then begin
SendMessage(hChild,WM_GETTEXT,SizeOf(aTemp),Intege r(@aTemp));

Result := StrPAS(aTemp);
end;
end;
hChild := GetWindow(hChild, GW_HWNDNEXT);
end;
end; 

[kakarlos 0]

Esse código foi criado por mim, mas acho que deve te ajudar:

Function GetOtherWindowMemoText(const sCaption : String) : WideString;
var
hWindow : THandle;
hChild : THandle;

aTemp : array[0..5000] of Char;
sClassName : String;
begin
Result := '';

hWindow := FindWindow(Nil,PChar(sCaption));

if hWindow = 0 then begin
ShowMessage('Could NOT find the other program');
exit;
end;

hChild := GetWindow(hWindow, GW_CHILD);
while hChild <> 0 do Begin
if GetClassName(hChild, aTemp, SizeOf(aTemp)) > 0 then begin
sClassName := StrPAS(aTemp);

if sClassName = 'Edit' then begin
SendMessage(hChild,WM_GETTEXT,SizeOf(aTemp),Intege r(@aTemp));

Result := StrPAS(aTemp);
end;
end;
hChild := GetWindow(hChild, GW_HWNDNEXT);
end;
end; 

 

 

 

 

OLa.. sera que você pode me ajudar como colocar isso no meu projetoo??