ich programmiere seid 3 Jahren mit Lazarus unter Windows, aktuell mit Lazarus Version 2.0.10 (wird definitiv nicht die neueste sein
). Mein aktuelles Projekt erfordert die Abfrage ob ein bestimmter Tab im Edge geöffnet ist, allerdings beiße ich mir gerade die Zähne daran aus und benötige neue Ansätze. Die Steuerung über FindDefaultBrowser kann hierbei nicht genutzt werden, da die Hauptkomponenten über den IE laufen und dieser deshalb der Default Browser ist. Websites übern Default öffnen und Parameter übergeben nutze ich derzeit schon für andere Sachen.
uses: LCLProc, LazHelpHTML, UTF8Process, windows, LCLIntf; sind bereits eingebunden
var
handle: HWND;
v: THTMLBrowserHelpViewer;
BrowserPath, BrowserParams, Helper: string;
p: LongInt;
URL: String;
BrowserProcess: TProcessUTF8; sind bereits angelegt.
Mein bisher verfolgter Ansatz für die procedure:
handle := FindWindow(nil, 'Seitenname'); <- war ein Versuch den Tab zu finden
ShowWindow(handle, SW_Show);
handle := SetActiveWindow(Handle);
könnte ein Teil der Lösung sein aber da fehlt definitiv was
mit FindWindow könnte man vllt den Edge finden, aber den Tab im Edge, hmmm
Was ist mein Ziel:
- Überprüfung im Edge ob ein bestimmter Tab offen ist (bevorzugt über Url statt Namen)
- Wenn der Tab vorhanden ist - Tab als Aktiv auswählen (try aktion)
- Parameter übergeben etc (entweder mit try oder if else)
Alternativ könnte ich die Ziele auch in Chrome anwenden falls es da noch nix für den Edge gibt. Müsste ich dann zwar ein bisschen mehr ansteuern aber das bekomm ich dann schon hin wenn ich den anfang hab
SuFu usw wurde natürlich schon genutzt, aber wohl mit den falschen Schlagworten.
Verein
Links
Suche