Question

I got the following code from here and have changed it a little and I have changed the original question a little also.

The timer interval is set to 5000.
After the following 3 events occur the ‘Events OnTimer’ procedure will start to work.

• 1.WebBrowser1.Navigate(‘Any webpage’);
• 2.wait for it to load
• 3.programmatically press a download file button

The problem now is I can’t find the ‘Edit'(Class Name) handle that belongs to(or is the child of) the ‘Save as’ dialog box. The handle for the ‘Edit’ comes to ‘0’ in the code below, but if I use my mouse pointer and the following code:

HND:= WindowFromPoint(PNT);
Label1.Caption:= IntToStr(HND);

the handle gives a result. Once I have the handle, I can use:

SetWindowText(EditHandle, 'test text'); 

to change the text in ‘Edit'(Class Name).

procedure TForm1.Timer1Timer(Sender: TObject);
Var
WHandle : HWND ;
ParentHandle : DWORD ;
P : Array[0..256] Of Char ;
ProcessIdActif : DWORD ;

begin
ProcessIdActif := 0 ;
GetWindowThreadProcessId (handle,@ProcessIdActif);
WHandle := FindWindow( Nil, Nil);
While (WHandle <> 0) Do
  begin 
    P[0] := #0;
    GetWindowText(WHandle, P, 255);
    if P[0] <> #0 then
      begin
        GetWindowThreadProcessId (WHandle,@ParentHandle);
        if ProcessIdActif = ParentHandle then
          begin
          if CompareText(p,'File Download') = 0 then
            begin
              ButtonHandle := FindWindowEx(WHandle, 0, 'Button', '&Save');
              if (ButtonHandle > 0) then
               PostMessage(ButtonHandle, BM_CLICK, 0, 0);       
            end
          else if CompareText(p,'Save As') = 0 then
            begin
              EditHandle := FindWindowEx(WHandle, 0, 'Edit',NIL);
              if (EditHandle > 0) then
                SetWindowText(EditHandle, 'test text');
            end;                
          end;
      end;
      WHandle := GetWindow(WHandle, GW_HWNDNEXT);
  end;
end;

I’ve been trying to understand everything here but I’m missing something.

I’m able to press any windows dialog button by moving the mouse and pressing the mouse programatically, but I’d like to figure out how to press these buttons in a cleaner way.

Answer 1

Disclaimer: the below code is not meant to be used in any way, it won’t work correctly if the environment is different anyway (W7 here).

Anyway, put the below in your timer handler and try to workout the differences (if it works hopefully..) with the code in the question:

var
  WHandle, ButtonHandle, EditHandle: HWND;
begin
  WHandle := FindWindow('#32770', 'File Download');
  if WHandle <> 0 then begin
    SetForegroundWindow(WHandle);
    ButtonHandle := GetDlgItem(WHandle, $114B);
    if ButtonHandle <> 0 then begin  // click the button
      // the dialog/button is kind of deaf.. 
      while IsWindowEnabled(WHandle) do begin
        SendMessage(ButtonHandle, BM_CLICK, 0, 0);
        Sleep(100);
      end;
      WHandle := 0;
      while WHandle = 0 do begin     // wait for the save as dialog
        WHandle := FindWindow('#32770', 'Save As');
        Sleep(100);
      end;
      while not IsWindowVisible(WHandle) do
        Sleep(100);
      // get through the edit handle
      WHandle := FindWindowEx(WHandle, 0, 'DUIViewWndClassName', nil);
      EditHandle := GetWindow(GetWindow(GetWindow(GetWindow
                    (WHandle, GW_CHILD), GW_CHILD), GW_CHILD), GW_CHILD);
      SetWindowText(EditHandle, 'test text');
    end;
  end;