AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Dienst aus Konsolenprogramm

Ein Thema von franktron · begonnen am 14. Jun 2010 · letzter Beitrag vom 14. Jun 2010
 
Benutzerbild von kuba
kuba

Registriert seit: 26. Mai 2006
Ort: Arnsberg
588 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: Dienst aus Konsolenprogramm

  Alt 14. Jun 2010, 10:26
Mein Programm ist ein Application Server also es hat keine Ausgabe (außer logfile)
und TCP/IP
Hy,

kannst du dein Programm nicht einfach aus einem Dienst heraus aufrufen ??

ungefähr so:

Delphi-Quellcode:
repeat
     if not IsExeRunning(MeinProgramm) then
     begin
       FillChar(StartupInfo,Sizeof(StartupInfo),#0);
       StartupInfo.cb:=Sizeof(StartupInfo);
       StartupInfo.dwFlags:=STARTF_USESHOWWINDOW;
       StartupInfo.wShowWindow:=SW_SHOWNORMAL; //SW_SHOW, SW_HIDE, SW_SHOWNORMAL;
       lstrcpy(szCmd, PChar(MeinProgramm));
       if CreateProcess(nil, szCmd, nil, nil, False, CREATE_NEW_CONSOLE, nil,
       nil, StartupInfo, ProcessInfo) then begin
       CloseHandle(ProcessInfo.hThread);
       CloseHandle(ProcessInfo.hProcess);
     end;
until stopped
Ich hab auch ein TCP/IP Programm für den Datenaustausch mit einem Service. Das Programm starte ich einfach wie oben gezeigt aus dem Dienst heraus. Bis Windows XP ist das vollkommen unproblematisch. Ab Vista geht es auch, allerdings müssen einige Punkte beachtet werden, sonst erscheint die Meldung "Erkennung interaktiver Dienste" in der Taskleiste.

kuba
Stefan Kubatzki
E=mc2
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:03 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz