NT-Service auf 64bit Windows

[kuba]

Hallo,

ich habe einen NT-Service programmiert und mache damit das da:

Delphi-Quellcode:

    ZeroMemory( @si, sizeof(si) );
    si.lpDesktop := PChar('WinSta0\Default');
    si.cb := sizeof(si);
    ZeroMemory( @pi, sizeof(pi) );
    ReadDir(PW);
    command:=PW+'\remote.exe';

    try
      if not CreateProcessAsUser(
        token,
        nil,
        PChar(command),
        nil,
        nil,
        False,
        CREATE_NEW_CONSOLE, //cf,
        nil,
        PChar(ExtractFilePath(command)),
        si,
        pi )then exit;
    except
      exit;
    end;

Unter Windows X86 funktioniert das einwandfrei, mit Windows 64Bit scheint es nicht mehr zu funktionieren (habe nur zeitweise eine Testumgebung).

Was muss ich machen damit es auch mit Windows 64Bit funktioniert ?

KUBA

[s.h.a.r.k]

Wo scheitert es denn?

[kuba]

remote.exe startet nicht, taucht nicht im Taskmanager auf.

ups, ich sehe gerade dass ich den falschen Auszug gepostet habe:

So sieht's aus:

Delphi-Quellcode:

ReadDir(PW3);
ShellExecute(0,Nil,'remote.exe','',PCHar(PW3), SW_HIDE);

Also shellexecute tuts bei 64Bit nicht, warum ?

kuba

[Bummi]

Ich entwickle hier mir Server2008R2 und hatte noch nie Probleme mit Shellaufrufen.

Ist remote.exe im Suchpfad?

[kuba]

Zitat von Bummi:

Ich entwickle hier mir Server2008R2 und hatte noch nie Probleme mit Shellaufrufen.

Ist remote.exe im Suchpfad?

Gute Frage, kann ich erst überprüfen wenn ich wieder bei meiner Testumgebung bin.

Dieser Code scheint auch Probleme zu machen:

Delphi-Quellcode:

        ReadDir(PW1);
        PW2 := 'watchdog.exe';
        PW3 := '';
    try
        CmdLine := Format('"%s%s" %s',[IncludeTrailingPathDelimiter(PW1),PW2,PW3]);
        FillChar(SI, SizeOf(SI), #0);
        FillChar(PI, SizeOf(PI), #0);
        SI.cb := SizeOf(SI);
        SI.lpDesktop := PChar('Winsta0\Default');
        SI.dwFlags := STARTF_USESHOWWINDOW;
        SI.wShowWindow := SW_SHOWDEFAULT;
        ProcCreated := CreateProcessAsUser(
                            hUserToken,
                            nil,
                            PChar(CmdLine),  // pointer to command line string
                            nil,             // pointer to process security attributes
                            nil,             // pointer to thread security attributes
                            True,            // handle inheritance
                            0,               // creation flags
                            nil,             // pointer to new environment block
                            nil,             // pointer to current directory name
                            SI,              // STARTUPINFO
                            PI);             // PROCESS_INFORMATION

        if ProcCreated then
        begin
            CloseHandle(PI.hProcess);
            CloseHandle(PI.hThread);
        end
        else
            ShowMessage('Error ' + SysErrorMessage(GetLastError));
    finally
        CloseHandle(hUserToken);
    end;

Meinst du mit Suchpfad PATH ? Ich starte das Programm doch mit Pfadangabe, oder könnte es an den Rechten des Programmverzeichnis liegen ? Der Dienst als solcher funktioniert einwandfrei, nur die Programme starten nicht in der 64Bit Umgebung.

Ich installiere den Service mit einem Setup (InnoSetup), folgende Zeile habe ich eingefügt damit ich im Programmverzeichnis auf ini-Dateien zugreifen kann:

Delphi-Quellcode:

[Dirs]
Name: "{app}"; Permissions: authusers-full;

Muss ich bei Windows 64Bit irgendwelche Verzeichnisrechte setzten ?

kuba

[Luckie]

Das ShowMessage wirst du nie sehen, da es ab Windows Vista keine interaktiven Dienste mehr gibt. Schreib besser eine Logdatei.

Den Remarks Abschnitt im Windows SDK hast du gelesen?

[kuba]

Zitat von Luckie:

Das ShowMessage wirst du nie sehen, da es ab Windows Vista keine interaktiven Dienste mehr gibt. Schreib besser eine Logdatei.

Den Remarks Abschnitt im Windows SDK hast du gelesen?

Das Showmessage werde ich nicht sehen, schon klar. Trotzdem, Danke für den Tip mit der Log-Datei. Irgendwo sollte man schon sehen können wenn ein Fehler passiert.

Remarks Abschnitt ?? Hab ich nicht gelesen, wo ???

kuba

[Luckie]

Zitat von kuba:

Irgendwo sollte man schon sehen können wenn ein Fehler passiert.

Sollte man, tut man aber eben in einen Dienst so nicht.

Zitat:

Remarks Abschnitt ?? Hab ich nicht gelesen, wo ???

Im Windows SDK oder eben online im MSDN.

[kuba]

Zitat von Luckie:

Zitat:

Remarks Abschnitt ?? Hab ich nicht gelesen, wo ???

Im Windows SDK oder eben online im MSDN.

Hier ?

Solange mir meine Testumgebung nicht zur Verfügung steht kann ich wohl nur mutmaßen.

kuba

[Luckie]

Nein, hier: http://msdn.microsoft.com/en-us/libr...8VS.85%29.aspx