Fenster in einer Service Application emulieren

stephantom · Verfasst: Mo 16.01.06 19:16

Hallo!

Ich versuche mich gerade mit einer Service Application. Dabei rufe ich eine procedure aus einer externen DLL auf, die ein Fenster erzeugen möchte:

markieren

Delphi-Quelltext

1:	SampleProcedure(0);

Nun funktioniert das in der Service Application natürlich nicht. Gibt es eine Möglichkeit ein virtuelles Windowhandle zu erzeugen, das nicht wirklich angezeigt wird sondern nur für das Programm im Speicher existiert? In diesem Fenster ist nämlich keine Useraktion nötig/möglich. Wenn man der Procedure 0 übergibt wird ein neues Fenster erzeugt, ansonsten werden noch vordefinierte HWNDs akzeptiert. Eine andere (unschönere) Möglichkeit wäre natürlich, dem Programm zu ermöglichen, ein Fenster zu erstellen.
Ich vermute, dass das Erzeugen eines neuen Handles daran scheitert, dass es dafür kein Elternelement gibt.

Bitte helft mir :-)

stephantom

_________________
Irgendwas ist ja immer...

0xCC · Beiträge: 150

probier mal AllocateHWnd()

stephantom · Verfasst: Mo 16.01.06 20:04

Danke für deine Antwort.
Ich habe mich jetzt ein bisschen über AllocateHWnd schlau gemacht und schlussendlich einen Versuch mit folgendem Code gestartet:

markieren

Delphi-Quelltext

1:
2:

newhwnd := Classes.AllocateHWnd(nil);
tmp := TWAIN_AcquireNative(newhwnd,0);

Produziert aber dasselbe Resultat wie mit einer 0 als Argument. Wenn ich den Service installieren (per Kommandozeile via aservice.exe /install) und dann das Bestätigungsfenster offen lasse funktioniert alles wie es soll. Natürlich wird hier ein Fenster angezeigt, aber das soll mal meine geringste Sorge sein. Wichtiger wäre, dass auch ein Fenster erzeugt werden kann (sichtbar oder nicht), wenn keines da ist.
Es ist auch gut möglich, dass ich die Funktion falsch angewendet habe!?

_________________
Irgendwas ist ja immer...

0xCC · Beiträge: 150

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

  MyWndHandle:=AllocateHWnd(MsgHandler);
...
procedure TForm1.MsgHandler(var msg:TMessage);
begin
  with Msg do
    case Msg of
      WM_CLOSE:begin 
       ...

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme