Change text of other App Edit Control

[Meflin]

Zitat von Razor:

Nobody...?Dont know or is it that almost everybody is lazy to hit the post button.

Where is your question?

[DeddyH]

42

[Razor]

Question is: Why dosen't this work under win 7/vista?Please someone test it!
It only opens the dialog i knew how to do that on my own.So nothing new.

Delphi-Quellcode:

uses   
  ShellAPI,ddeman;   

 
procedure WindowsSuchenDialog(Verzeichnis, Suchstring: string);   
var   
  hOtherWin, hFocusWin: HWND;   
  OtherThreadID, iTimeOut: Integer;   
  aDwordVar: DWORD;   
  buf: array [0..40] of Char;   
  sVerz: string;   
begin   
  // ShellExecute(application.handle, 'find', 'c:\', nil, nil, SW_SHOWNORMAL);   
  // oder mit TDDEClientConv   
  with TDDEClientConv.Create(nil) do   
  begin   
    ConnectMode := ddeManual;   
    ServiceApplication := 'explorer.exe';   
    SetLink('Folders', 'AppProperties');   
    OpenLink;   
    sVerz := IncludeTrailingBackslash(Verzeichnis);   
    ExecuteMacro(PChar('[FindFolder(, '+ sVerz +')]'), False);   
    CloseLink;   
    Free;   
  end;   
  iTimeOut := 0;   
  repeat   
    { Warten, bis der Such Dialog erscheint.   
      Unter Win95/98/NT4 hat der Suchdilaog die Klasse #32770.   
      Unter ME/2000/XP ist die Suche in den Explorer integriert,   
      darum auf CabinetWClass warten}   
    Sleep(100);   
    hOtherWin := GetForegroundWindow;   
    buf[0] := #0;   
    GetClassName(hOtherWin, buf, 60);   
    inc(iTimeOut);   
  until (StrComp(buf, '#32770') = 0) or (StrComp(buf, 'CabinetWClass') = 0) or (iTimeOut > 20);   
  if iTimeOut > 20 then Exit;   
  repeat   
    { Wait until it is visible }   
    { Warten, bis das Fenster erscheint }   
    Sleep(100);   
  until IsWindowVisible(hOtherWin);   

 
  { Handle vom Control finden, welches den Fokus besitzt }   
  OtherThreadID := GetWindowThreadProcessID(hOtherWin, @aDwordvar);   
  if AttachThreadInput(GetCurrentThreadID, OtherThreadID, True) then   
  begin   
    hFocusWin := GetFocus;   
    if hFocusWin <> 0 then   
      try   
        SendMessage(hFocusWin, WM_SETTEXT, 0, Longint(PChar(Suchstring)));   
      finally   
        AttachThreadInput(GetCurrentThreadID, OtherThreadID, False);   
      end;   
  end;   
end;   

 
procedure TForm1.Button1Click(Sender: TObject);   
begin   
  WindowsSuchenDialog('c:\temp','test.txt');   
end;

Offtopic comment:@ DeddyH and others > Delphipraxis will be delphipraxis unique in its own weird bizzaree way.

[toms]

The answer was already given by sx2008.

This link might also be of interest: Windows Integrity Mechanism Design

[Razor]

Look toms no offense but you should really really update your Winspy 2008 in win 7 its showing completely diffrent handles.
WinID vs WinSpy 2008 = WinID wins by far!

The problem was WRONG HANDLE!

[toms]

Zitat von Razor:

The problem was WRONG HANDLE!

That's why I asked you the question "Is the message ShowMessage(..) shown?"

Zitat von Razor:

its showing completely diffrent handles.

Where exactly was the error? How does the FindWindow Code look like now?

[Razor]

Well its kind of weird but i will explain step by step:

Winspy 2008 gets handle alright but the last wndchild gets diffrent handle as reported in WINID;
if i used this procedure result would be nothing,but if used direct handle "number"
then it would change but WinID is reporting title change but it is not visible.Very cofusing

Delphi-Quellcode:

  wndMain := FindWindow('CabinetWClass','Search Results');
  if wndMain <> 0 then
  begin
    wndChild := FindWindowEx(wndMain, 0, 'WorkerW', nil);
    wndChild := FindWindowEx(wndChild, 0, 'ReBarWindow32', nil);
    wndChild := FindWindowEx(wndChild, 0, 'UniversalSearchBand', nil);
    wndChild := FindWindowEx(wndChild, 0, 'Search Box', nil);
    wndChild := FindWindowEx(wndChild, 0, 'SearchEditBoxWrapperClass', nil);
    wndChild := FindWindowEx(wndChild, 0, 'DirectUIHWND', nil)

As you can see here title is :www.delphipraxis something'' so it did change but not as it changes in IE search box.


IE search box works but only if you use direct HANDLE input no wndchild's and wndmain's


Now toms explain why does this happen

http://img.techpowerup.org/091004/Capture011.jpg
http://img.techpowerup.org/091004/Capture012.jpg

[Razor]

i believe toms that problem lies in DirectUIHwnd class.I am still searching what it is exactly.

[fkerber]

Hi!

Please don't push within 24 hours!


Ciao, Frederic

[Razor]

Fkerber if you do not know the solution to this problem dont post please...