Windowstate eines fremden Programm ermitteln

[Aljoscha]

Hallo!
Ich würde gerne den Windowstate eines fremden Programms ermitteln, also ob es minimiert ist, maximiert oder in meinem fall genauer: unsichtbar.
In einem meiner letzten Threats habe ich schon gefragt wie genau ich Firefox starten kann und das Handle ermittle, das habe ich jetzt soweit hingekriegt (danke nochmal ;-) http://www.delphipraxis.net/internal...t.php?t=159303 ).
Allerdings soll Firefox auch versteckt starten!
Dies ist allerdings leider nicht möglich (schein an Firefox zu liegen, habe in Autoit-Foren das selbe gelesen).
Deshalb möchte ich zumindest per Timer ermitteln ob das Fenster sichtbar oder unsichtbar ist und entsprechend darauf reagieren!
Falls jemand doch weiß wie man Firefox unsichtbar starten kann, wäre mir das natürlich noch lieber ;-)
So geht es schonmal nicht:

Delphi-Quellcode:

ShExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
ShExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
ShExecInfo.lpVerb := nil;
ShExecInfo.lpFile := PChar(GetDefaultBrowser);
ShExecInfo.lpDirectory := PChar(ExtractFilePath(GetDefaultBrowser));
ShExecInfo.lpParameters := PChar('-new-window ' + pageurl);
ShExecInfo.nShow := SW_HIDE;

ShellExecuteEx(@ShExecInfo);

[SimStar001]

ich mache es so in meiner Anwendung:

Delphi-Quellcode:

function GetWindowState(WIndow : HWND): cardinal;
    wp: tWindowPlacement;
     Window : HWND;
begin
  result := - 1;
  if Window > 0 then
    begin
    wp.Length := SizeOf(tWindowPlacement);  // muss sein für GetWindowsPlacement
    GetWindowPlacement(Window, @wp);
    result := wp.ShowCmd; // 
    end;
end;

PS: Du musst mal selber rumprobieren welcher Wert welcher State ist, ich weiß es auch nicht mehr genau!

LG Marco!

[Aphton]

Probier mal folgendes:

Delphi-Quellcode:

const
  state: Array[Boolean] of String = ( 'Nein', 'Ja' );
var
  WL: Cardinal;
  Status: String;
begin
  WL := GetWindowLong( nh, GWL_STYLE ); // nh ist das Handle vom Notepad...
  Status := 'WS_VISIBLE: '  + state[(WL and WS_VISIBLE) = WS_VISIBLE] + #13#10 +
            'WS_MAXIMIZE: ' + state[(WL and WS_MAXIMIZE) = WS_MAXIMIZE] + #13#10 +
            'WS_MINIMIZE: ' + state[(WL and WS_MINIMIZE) = WS_MINIMIZE];
  Label1.Caption := Status;

[Zacherl]

Über ShellExecuteEx geht auch das unsichtbar starten. Ich glaube man musste neben dem Show Parameter noch ein anderes Flag in der Struktur setzen, damit es funktioniert.

[Aljoscha]

Sehr gut danke, der Code von Aphton ging schonmal :-)
Aber kann mir jemand sagen wie dieses zusätzliche Flag sein soll um Firefox direkt unsichtbar zu starten?
Das wäre natürlich eine viel sauberere Lösung...

[Aphton]

--Sorry-- :oops:

[wicht]

Genau das hat Aljoscha doch schon versucht :) siehe sein erstes Posting. Nichts für ungut.

[Aphton]

ohh :oops:

Komisch :S
Tretet das Problem auch auf, wenn du das ganze nur mit ShellExecute aufrufst?

Edit1:
Also ich hab das mit ShellExecuteEx probiert und es hat prima funktioniert :gruebel:

Delphi-Quellcode:

var
  shellstruct: TShellExecuteInfo;
begin
  FillChar( shellstruct, sizeof(shellstruct), 0 );
  shellstruct.cbSize := Sizeof( shellstruct );
  shellstruct.lpVerb := 'open';
  shellstruct.lpFile := 'notepad';
  shellstruct.nShow := SW_SHOW;
  ShellExecuteEx( @ShelLStruct );

[Aljoscha]

Also auch mit Shellexecute kann ich firefox.exe nicht unsichtbar starten... :(
Das Fenster unsichtbar zu machen ist kein Problem, aber unsichtbar starten geht scheinbar nicht.
Zumindest nicht so wie ich es versucht habe ;-)

[Fridolin Walther]

Nur so als kleine Info:
Wenn Du Browser unsichtbar starten willst, stell Dich auf lustige Alarmmeldungen diverser Behaviour Blocker oder HIPS ein. Es gibt keinen rationalen Grund wieso man den Browser unsichtbar starten möchte, ausser eben an Firewall und Co vorbei Daten auszutauschen. Entsprechend wird es als malwaretypisches Verhalten erkannt.

[Aljoscha]

Doch den gibt es, weil Indy kein Javascript kann.
Und die AV Meldungen sind ja relativ egal, weil man sein fertiges Programm einfach zu den Herstellern senden kann und die es in eine art "Trusted Liste" aufnehmen.

[wicht]

Zitat:

Doch den gibt es, weil Indy kein Javascript kann.

?! Jetzt bin ich erst richtig interessiert, was du vorhast :stupid:

[Fridolin Walther]

Zitat:

Zitat von Aljoscha

Doch den gibt es, weil Indy kein Javascript kann.

Da gibt es hunderte einfachere Möglichkeiten, die zudem deutlich sauberer sind. Z.B. könntest Du Gecko einfach in Deine Anwendung einbinden oder halt den IE, falls Du keine Rendering Engine mit ausliefern willst. Beides ermöglicht Dir sogar deutlich einfacheren Zugriff auf alles was sich im Browser abspielt als die Schnittstellen zur Browserfernsteuerung es je könnten. Für SpiderMonkey (Firefoxs Javascript Engine) gabs ebenfalls Delphi Bindings (http://delphi.mozdev.org).

Zitat:

Zitat von Aljoscha

Und die AV Meldungen sind ja relativ egal, weil man sein fertiges Programm einfach zu den Herstellern senden kann und die es in eine art "Trusted Liste" aufnehmen.

HIPS sind Fehlalarme egal, wobei es sich bei Deiner Anwendung nicht mal um einen Fehlalarm handeln würde. Da existiert sowas wie eine Whitelist vom Hersteller nicht.

[Aljoscha]

Das wusste ich nicht :-)
Dann gucke ich mir das mit Gecko mal an!

[Fridolin Walther]

Zitat:

Zitat von Aljoscha

Das wusste ich nicht :-)
Dann gucke ich mir das mit Gecko mal an!

Als Anhangspunkte wie man das Mozilla ActiveX Control richtig installiert:
http://www.delphipraxis.net/internal...=295790#295790

Für weitere Informationen:
TMozillaBrowser

Ebenfalls sehr hübsch:
http://www.paranoia.clara.net/articl...th_delphi.html

[Aljoscha]

Vielen Dank!
Das werde ich mir mal ansehen ;-)