vcl-prog -> service

[Jan]

Hallo DP!

Ich habe keine Ahnung ob das hierher gehört, aber ich versuchs mal.
Undzwar möchte ich ein Programm schreiben, welches immer im Hintergrund läuft, also nie zu sehen ist, allen falls im Taskmanager.
Das Programm beinhaltet einen serversocket und soll nur auf eine message von aussen warten und dann in Aktion treten.
Das Programm soll also weder einen sichtbaren Form noch ein Trayicon haben. Weiterhin soll es bei jedem Windozestart getartet werden.
das Programm funktioniert schon, und tut das was es soll, allerdings weiss ich jetzt nicht wie ich es verstecken kann.
Ich hab dazu schon was von service gehört, aber das tut von Asserbad sagt mir extrem wenig, weil ich nicht verstehe was da gemacht wird. und ich keine Ahnung habe wie ich die vcl-komponenten (serversocket) da mitverwenden soll, da in seinem fertigen servicegerüst reiner pascal text ist, wie man ihn in ein pascalprog schreibt, aber das ist ganz anders als in Delphi. (heul) Ich glaube ihr merkt schon, ich bin vollkommen überfordert, und habe vielleicht nicht so ganz die Funktionsweise einer Delphiunit verstanden.
Könnte mir da einer helfen und sagen, wie ich mein fertiges Programm in dieses Servicegrundgerüst reinbekomme, und wie ich den service dann installiere, etc? ich hab da keinen blassen von.
Danke im Vorraus
Jan

[Daniel B]

Hallo Jan,

vielleicht könntest Du uns mal ein direkten Link zur Verfügung stellen, dann kann man sich auch mal den Source anschauen. Sonst wird das nichts.
Eine fertige Unit bindet man ein, indem man sie ganz oben, bei den "uses" mit auflistet.

Grüsse, Daniel

[Alexander]

also, du könntest das ganze als Anwendung in der TNA laufen lassen und einfach kein Icon setzen - allerdings weiß nicht genau, ob dann dort statt Icon Platz gelasse wird.
Du wirst es aber vermutlich nie hinbekommen deine Anwendung vor dem Taskmanager zu verstecken. Géht nur unter Win 9.x

[Luckie]

Warum auch? Verstecken tun sich nur Viren.

[Jan]

Hi DP,

@Daniel B: http://www.assarbad.org/stuff/tutori...svc/index.html hier ist das tut für die erstellung eines NT-service. Und da komme ich grad mal garnicht mit zurecht.

@alexander: Das hab ich ja garnicht vor, von miraus soll das Programm ruhig im Taskmanager zu sehen sein, allerdings soll es einfach so wenig auffällig wie möglich sein, da ich es auf meinem server benutzen will um bestimmte dinge von aussern zu steuern, dafür brauche ich auch den serversocket.

@Luckie: genau


Gruß
Jan

[Alexander]

ok dann ich habe ich dich wohl nicht richtig verstanden

[Jan]

Kann mir denn da jetzt jemand helfen?
Ich hab da extreme Probs und jedesmal wenn ich mich daran versuche bin ich kurz davor mit meinem Kopf in meinem Bildschirm zu schlagen.
Greetz
Jan

[Luckie]

Ist bei den Delphi Enterprise Versionen kein Service-Grundgerüst dabei? Ich meine, ich hätte da mal was gesehen.

[Salomon]

Hallo Jan,
um dein Programm zu verstecken muss du es nicht zwangsläufig als Services laufen lassen. Um das Haupfenster zu verstecken kannst du folgenden Code verwenden:

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
  hwndOwner: HWnd;
begin
  hwndOwner := GetWindow(Handle, GW_OWNER);
  ShowWindow(hwndOwner, SW_HIDE);
  ShowWindowAsync(hwndOwner, SW_HIDE);
  ShowWindowAsync(Self.Handle, SW_HIDE);
end;

Falls du WinXP verwendest, ist dein Programm im Taskmanager nur noch unter Prozesse sichtbar, und wird nicht bei den ANwendungen aufgeführt.

Mfg

[Jan]

Hallo Salomon,
also unter XP ist das schonmal erste Sahne, da funzt das echt toll, aber das Prog soll auch unter was anderem als xp laufen (ME und 2k) Wie sieht das da aus?
Macht das von der Sichtbarkeit einen Unterschied zu einem service unter win9x und NT?
BB!
Jan