Ergebnis der Suchanfrage

• Forum: Win32/Win64 API (native code)

  AW: Dienst Starten/Stoppen Windows Server 2012

   
    by himitsu, 1. Okt 2016
  Ich hab da mal was ausgekoppelt.
  if ServiceControl.Start('DeinService') then
  
  if ServiceControl.Stop('DeinService') then
  
  uses
  System.TypeInfo;
  
  procedure TForm6.FormCreate(Sender: TObject);
  var
• Forum: Win32/Win64 API (native code)

  AW: Dienst Starten/Stoppen Windows Server 2012

   
    by himitsu, 28. Sep 2016
  Ein Leerstring ist nil (nur nicht, wenn man das über PChar "castet", denn dieser Cast, leitet bei einem Leerstring auf eine Dummy-Konstante mit dem Inhalt #0#0 um)
  Und dann eben andersrum, denn die Start- und Stopfunktionen sind ja mit String deklariert :zwinker:
  
  Die Fehlerbehandlung ist das größere Problemchen.
  Der Code mag funktionieren, aber wenn was nicht geht, dann erfährt man nicht das...
• Forum: Win32/Win64 API (native code)

  AW: Dienst Starten/Stoppen Windows Server 2012

   
    by himitsu, 27. Sep 2016
  Unicode scheint erstmal kein Problem zu sein, bei dem alten Code. (auf den ersten Blick)
  
  Aber bei der Fehlerbehandlung fehlt ein bissl was ... alles mit GetLastError bei Fehlern.
  Vieles ist richtig mit if ... <> 0 then abgefangen, aber im ELSE wird der Fehler nicht ausgewertet.
  
  Was sagt der Debugger?
  Delphi mit Adminrechten starten und dann diesen Code mal schrittweise durchgehn.