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