Получения Handle компонентов программы

[Lorden]

Добрый день! подскажите как получить хендл кнопки Button имеющей например заголовок:

Открыть текс для его 
последующего преобразования

использую код:

var
Handle1, Handle2: integer;
begin
  Handle1 := 0;
  Handle2 := 0;
  while  Handle1 = 0 do
    begin
      Handle1 := FindWindow(nil, 'VCL');
   Label1.Caption:=IntTOStr(Handle1);
    end;
  Handle2 := FindWindowEx(Handle1, 0, nil, 'Открыть текс для его 
последующего преобразования');
  Label2.Caption:=IntTOStr(Handle2);

Но Handle2 равен 0, как я понимаю не правельно введено имя кнопки "Открыть текс для его последующего преобразования" т.к. в программе она имеет вид:

Открыть текс для его 
последующего преобразования

но я чёт не пойму как сделать такой переход в программе? если сделать так:

Handle2 := FindWindowEx(Handle1, 0, nil, 'Открыть текс для его'+#13#10+'последующего преобразования');

но так не работает.
На форме также имеется кнопка "Открыть" и при выполнении такого кода:

var
Handle1, Handle2: integer;
begin
  Handle1 := 0;
  Handle2 := 0;
  while  Handle1 = 0 do
    begin
      Handle1 := FindWindow(nil, 'VCL');
   Label1.Caption:=IntTOStr(Handle1);
    end;
  Handle2 := FindWindowEx(Handle1, 0, nil, 'Открыть');
  Label2.Caption:=IntTOStr(Handle2);

в Handle2 заносится всё корректно.
Если ктонить понял что я хочу подскажите пожалуйста=)

[ArtGrek]

попробуите так

  FindWindowEx(Handle1, Handle2, nil, 'Открыть текс для его последующего преобразования');
  Label2.Caption:=IntTOStr(Handle2);

[_SERGEYX_]

Пиши вместо
+#13#10+
просто
+#13+
Будет работать.

[Lorden]

не то не другое не работает( кто-то говорил что загловок компанента можно вытащить через WinSight32 но там не отображается почемуто...
Вот нашёл код который определяет Handle и класс компонента на форме:

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
  rPos: TPoint; 
begin 
  if Boolean(GetCursorPos(rPos)) then ShowHwndAndClassName(rPos);
end; 

procedure TForm1.ShowHwndAndClassName(CrPos: TPoint);
var 
  hWnd: THandle; 
  aName: array [0..255] of Char; 
begin 
  hWnd := WindowFromPoint(CrPos);
  Label1.Caption := 'Handle :  ' + IntToStr(hWnd);
  if Boolean(GetClassName(hWnd, aName, 256)) then
    Label2.Caption := 'ClassName :  ' + string(aName) 
  else
    Label2.Caption := 'ClassName :  not found';
end; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  Form1.FormStyle := fsStayOnTop; 
  Timer1.Interval := 50; 
end;

а можно ли чтобы место класса показывало Caption компонента?

[Lorden]

или можно вытащить Name компонентак канить?

[Пепел Феникса]

GetWindowText
применять так же как и в GetClassName

[Lorden]

Сообщение от Пепел Феникса

GetWindowText
применять так же как и в GetClassName

спасибо=) но возникл теперь новый вопрос, как можно вытянуть текст с отображением всех спец символов? тоесть с отображением символов переноса строки и т.п.?

[Пепел Феникса]

function GetWndText(HWND:THandle):string;
begin
 SetLength(Result,GetWindowTextLength(HWND));
 SetLength(Result,GetWindowText(HWND,@Result[1],Length(Result));
end;

Memo1.Text:=GetWndText(Handle);

поидее так

[Lorden]

Сообщение от Пепел Феникса

function GetWndText(HWND:THandle):string;
begin
 SetLength(Result,GetWindowTextLength(HWND));
 SetLength(Result,GetWindowText(HWND,@Result[1],Length(Result));
end;

Memo1.Text:=GetWndText(Handle);

поидее так

ммм вот у меня в Memo текст выглядит вот так:

&Открыть текст для его последующего преобразования

при таком коде:

var
Handle1, Handle2: integer;
begin
  Handle1 := 0;
  Handle2 := 0;
  while  Handle1 = 0 do
    begin
      Handle1 := FindWindow(nil, 'VCL');
   Label1.Caption:=IntTOStr(Handle1);
    end;
  Handle2 := FindWindowEx(Handle1, 0, nil, PChar(Memo1.lines.strings[0]));
  Label2.Caption:=IntTOStr(Handle2);

В Label2 хендл кнопки записывается верно, но при таком коде:

var
Handle1, Handle2: integer;
begin
  Handle1 := 0;
  Handle2 := 0;
  while  Handle1 = 0 do
    begin
      Handle1 := FindWindow(nil, 'VCL');
   Label1.Caption:=IntTOStr(Handle1);
    end;
  Handle2 := FindWindowEx(Handle1, 0, nil, '&Открыть текст для его последующего преобразования');
  Label2.Caption:=IntTOStr(Handle2);

Handle2 равен 0; Я думаю там скорее всего в тексте присутствуют спецсимволы.


Если вдруг кто не понимает что я пытаюсь сделать то вот пример:

Label1.caption:='Привет'+#13+'Это моя программа'

при запуске программы мы увидим такой текст:

Привет
Это моя программа

вот, а мне нужно чтобы в Label2.caption либо любым другим компонентом или ещё чём нить узнать что в Label1.caption содержится текст такого вида:

Привет+#13+Это моя программа

попробывал прочитать через TFileSteram но нечего не получилось =(

[Lorden]

Или если вышеописаное невозможно то возможно какнить вытащить все хендлы компонентов содержащихся на форме и закинуть их в массив?