Hallo,
ich möchte mit dem Acrobat Reader 7 ein PDF-Dokument öffnen -> die Suche öffnen -> einen Suchtext eingeben -> die Suche starten und das Ergebnis anzeigen! Und alles soll durch ein Ereigniss gestartet werden und automatisch ausgefürt werden.
Ich habe mich schon durch das Forum gewühlt jedoch nicht allzu weit gekommen. Mein Problem ich versuche mit FindWindowEx den Suchen-Button oder den Button der erweiterten suche zu finden, jedoch bekomme ich kein Handle.
Der Button der Erweiterten Suche ist bei mir im Hauptfenster eingeblendet jedoch in einem eigenen kleinen Fenster. Ich habe auch versucht ein Handle für das kleine Fenster zu bekommen leider ohne erfolg. Ich weiß auch nicht wie der Button heißt um ihn mit FindWindowEx zu suchen.
Der Button Suchen ist im Menü "Bearbeiten", hier weiß ich nicht wie ich ich diese Funktion aufrufen kann eine definition wie WM_Close für das schließen gibt es für Suchen wohl nicht.
So habe ich es versucht:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure TForm1.Button2Click(Sender: TObject);
begin
ShellExecute(Handle,'open', pchar('C:\aa.pdf'), nil, nil, SW_SHOWNORMAL);
Filehandle := FindWindow(nil,pchar('Adobe Reader'));
edit1.Text := inttostr(Filehandle);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
ButtonHandle := FindWindowEx(Filehandle, 0, nil, 'Suchen');
edit2.Text := inttostr(ButtonHandle);
if ButtonHandle <> 0 then
begin
SendMessage(ButtonHandle, BM_CLICK, 0, 0);
end;
end; |
Vielleicht kann mir jemand einen Tip geben!
Danke Honk
