Знаю хэндл окна и хэндл компонента, но не могу послать компоненту текст

[Аватар]

А, правой рукой к левому уху.
http://support.microsoft.com/kb/130510/ru
Сильно не вникал, но по-моему и через параметр этого можно добиться

[p51x]

а можно еще вин + e нажать

[Stilet]

но по-моему и через параметр этого можно добиться

Угу. И использовать ShellExecute с параметром "open".

[NetSpace]

я же сказал, что открыть новое окно и искать его хэндл - не вариант, я же писал выше. комбинации клавиш я знаю и так.
вот, нашёл работающую функцию по определению хэндлов всех дочерних элементов

var s:PChar;
begin
   h1:=FindWindow(nil,'Компьютер');
   s:=GetMemory(200);
   SendMessage(hw,WM_GetText,200,integer(s));
   ListBox1.Items.Add(IntToStr(h1));
   FreeMemory(s);
   EnumChildWindows(hw,@GetNew,0);
end;

буду её теперь мучать....

[kvitaliy]

Сообщение от NetSpace

мне надо открыть Мой компьютер с выбором дисков за секунду. для этого мне надо в этой адресной строке проводника ввести текст "Компьютер" и виртуально нажать ENTER.

К чему такие сложности? Сразу выполнить ShellExecute с параметром в виде нужного диска и папки:

ShellExecute 0, "", "explorer.exe", " c:\Program Files", "C:\", SW_SHOWNORMAL

Сразу откроется проводник на нужной папке.

[kvitaliy]

Искать хендл запущенного проводника не надо - его возвратит GetForegroundWindow(), т.к. он будет в фокусе после запуска.

[NetSpace]

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

procedure TForm1.Button1Click(Sender:TObject);
var Mn_Hnd,Hnd:HWND;
    pt:TPoint;
begin
   //типа положение мыши и под ним объект с неизвестным хэндлом
   pt.x:=90;
   pt.y:=40;
   Mn_Hnd:=WindowFromPoint(pt);
   Windows.ScreenToClient(Mn_Hnd,pt);
   Hnd:=ChildWindowFromPointEx(Mn_Hnd,pt,CWP_ALL);
   PostMessage(Hnd,WM_LBUTTONDOWN,0,0);
   PostMessage(Hnd,WM_SETCURSOR,0,MakeLong(HTCLIENT,WM_LBUTTONDOWN));
   PostMessage(Hnd,WM_LBUTTONUP,0,0);
   PostMessage(Hnd,WM_SETCURSOR,0,MakeLong(HTCLIENT,WM_LBUTTONUP));
   SetWindowPos(h1,HWND_TOP,0,0,Round(Screen.Width/2),Screen.Height-300,SWP_SHOWWINDOW);//фокус окна
   Clipboard.AsText:='Компьютер';
   keybd_event(vk_control,0,0,0);//вставляем текст в окно -> CTRL+V
   keybd_event(86,0,0,0);
   keybd_event(86,0,KEYEVENTF_KEYUP,0);
   keybd_event(vk_control,0,KEYEVENTF_KEYUP,0);
   keybd_event(13,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);//ENTER
   keybd_event(13,0,KEYEVENTF_EXTENDEDKEY,0);
   keybd_event(13,0,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP,0);
end;

работает быстрее даже, чем ожидал!
тему можно закрывать.

[Полный 30h]

Сообщение от NetSpace

на своей форме создал окно Edit1, куда и ввожу этот хэндл. Далее по коду посылаю ему сообщение, чтоб поменять текст.

SendMessage(HWND(Edit1.Text),WM_SETTEXT,0,Integer(PChar('Мой текст')));

не реагирует...

Чет может не догоняю, в ассемблере как то так
invoke GetDlgItem,[hwnd],id ; получить хэндл контрола окна в eax
invoke SendMessage,eax,WM_SETTEXT,0,text ; отослать текст контролу
т.е. изначально из ресурсов я знаю id (номер кнопки) по нему узнаю хендл функцией GetDlgItem, а уже полученый хэндл пихаю в SendMessage

[NetSpace]

я ассемблер трогал только пару раз в редких случаях: когда искал серийный номер процессора и жёсткого диска, пару лет назад. я уже перебрал 4 решения и выбрал для себя быстрый вариант.
мне компонент Edit был нужен, чтобы видеть, КАКОЙ именно хэндл я отсылаю в функцию. сейчас я от всех промежуточных визуальных заморочек избавился

[NetSpace]

Спасибо за интересную функцию. очень удобна!