Найти Edit в окне Explorer'a
batya15 © (2010-05-28 03:09:00)
Уже сутки бьюсь, помогите найти адресную строчку в окне
запушенного explorer'a.
В других окнах нахожу на ура Edit'ы...
begin
var
s: PChar;
h: THandle;
begin
s := '1234';
h := FindWindow(nil,'Мой компьютер');
q := FindWindowEx( h, 0, 'Edit',nil);
SendMessage(q, WM_SETTEXT, 0, Integer(s));
end;
Окно тоже находиться без проблемм, проверял, менял
заголовок...
Leonid Troyanovsky (2010-05-28 10:40:00) [1]
function EnumFunc(h: HWND; Strings: TStrings): Bool; stdcall;
var
buf: array [0..255] of Char;
s: String;
begin
s := '';
while (h <> 0) do
begin
GetClassName(h, buf, SizeOf(buf));
s := Format('%s (%d)--', [buf, h]) + s;
h := GetParent(h);
end;
Strings.Add(Copy(s, 1, Length(s)-2));
Result := True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
h: HWND;
begin
h := FindWindow(nil, PChar(Edit1.Text));
with ListBox1, Items do
begin
BeginUpdate;
EnumChildWindows(h, @EnumFunc,
LParam(Items));
EndUpdate;
end;
end;
--
Regards, LVT.
Наверх 
ЧАТ |
Орешник |
|
