Button finden und betätigen

[Sprint]

Hab das mal ein bisschen umgeschrieben. Und "Dateien löschen" genommen, damit du sehen kannst, das es funktioniert.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  SI: TStartupInfo;
  PI: TProcessInformation;
  FindHWnd: HWND;
begin

  FillChar(SI, SizeOf(TStartupInfo), 0);
  SI.cb := SizeOf(TStartupInfo);
  if CreateProcess(nil, 'RUNDLL32.EXE shell32.dll,Control_RunDLL inetcpl.cpl,,0', nil, nil, False, 0, nil, nil, SI, PI) then
  begin
    WaitForInputIdle(PI.hProcess, INFINITE);
    FindHWnd := FindWindow(nil, 'Eigenschaften von Internet');
    if IsWindow(FindHWnd) then
    begin
      FindHWnd := FindWindowEx(FindHWnd, 0, '#32770', 'Allgemein');
      if IsWindow(FindHWnd) then
      begin
        FindHWnd := FindWindowEx(FindHWnd, 0, 'Button', '&Dateien löschen...');
        if IsWindow(FindHWnd) then
        begin
          SendMessage(FindHWnd, BM_CLICK, 0, 0);
        end;
      end;
    end;
    CloseHandle(PI.hProcess);
    CloseHandle(PI.hThread);
  end;

end;