Einzelnen Beitrag anzeigen

Benutzerbild von TheGame1492
TheGame1492

Registriert seit: 31. Jul 2004
Ort: Berlin
84 Beiträge
 
Delphi XE2 Professional
 
#6

Re: exe als service installieren und ausführen lasse funzt n

  Alt 16. Mai 2006, 13:05
Zitat von jim_raynor:
Und wie startest/installierst du die EXE als Service? Du kannst nicht einfach eine Exe als Dienst installieren. Diese muss bestimmte Vorraussetzungen erfüllen, oder du musst ein entsprechendes Hilfsprogramm benutzen (Google hilft bestimmt).
also als hilfsprogramm hab ich wie gesagt dameware benutzt


naja jedenfalls ich habs auch schon mit createservice installiert....

Delphi-Quellcode:
h_manager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);

if h_manager > 0 then
   CreateService( h_manager,
                  PChar('test'),
                  PChar('test'),
                  SC_MANAGER_CONNECT or
                  SC_MANAGER_ENUMERATE_SERVICE or
                  SC_MANAGER_MODIFY_BOOT_CONFIG or
                  SC_MANAGER_QUERY_LOCK_STATUS or
                  STANDARD_RIGHTS_READ ,
                  SERVICE_WIN32_OWN_PROCESS,
                  SERVICE_AUTO_START,
                  SERVICE_ERROR_NORMAL,
                  Pchar('C:\test.exe'),
                  nil,
                  nil,
                  nil,
                  nil,
                  nil);


CloseServiceHandle(h_manager);


Zitat von SirThornberry:
Wenn du Delphi7 Enterprice hast kannst du einen Service recht einfach erstellen. Einfach File->New->Other->Service
das weiß ich nur ich wollte das alles nonvcl basierend coden




Zitat von Olli:
Also mein Tutorial ist doch schon recht veraltet.


Ich würde dir aber etwas anbieten: Wenn du willst, nehme ich mir zu einem gemeinsam vereinbarten Zeitpunkt mal Zeit dir alles zu erklären und nutze die Erfahrung daraus (nämlich was genau die Schwerpunkte beim Lernenden sind) um mein Tutorial zu aktualisieren.
das klingt nicht schlecht

ich schau mir aber erstma dein tut an
  Mit Zitat antworten Zitat