TaskMgr Vista

[stOrM]

Hallo,
ich wollte mal nachfragen, ob ggf. einer von euch mal versucht hat einen Task in Delphi 2009 unter Vista anzulegen?
Gestern hab ich mal dir TLB importiert und hab dann versucht, mit meinen nicht vorhandenen C Kenntnissen folgendes MSDN TimeTrigger Example nach Delphi umzubauen...

Leider wird mir beim Ausführen der letzten Zeile also:

Delphi-Quellcode:

IRegisteredTask *pRegisteredTask = NULL;
    hr = pRootFolder->RegisterTaskDefinition(
            _bstr_t( wszTaskName ),
            pTask,
            TASK_CREATE_OR_UPDATE, 
            _variant_t(), 
            _variant_t(), 
            TASK_LOGON_INTERACTIVE_TOKEN,
            _variant_t(L""),
            &pRegisteredTask);

Immer die Fehlermeldung angezeigt: Der Parameter ist inkorekt ausgegeben.

Mein Umbau nach Delphi ist:

Delphi-Quellcode:

      // Unklar da RegisterTaskDefinition als ersten Param Path will und nicht TaskName wie im Beispiel!
      pRegisteredTask := pRootFolder.RegisterTaskDefinition(WideString('\'),
        pTaskDefinition,
        TASK_CREATE_OR_UPDATE,
        WideString(pszName),
        WideString(pszPwd),
        TASK_LOGON_INTERACTIVE_TOKEN_OR_PASSWORD,
        0);

Viele Grüße
Marc

[Luckie]

Der letzte Parameter müsste ein Zeiger auf einen Speicherbereich sein, weil dort die Funktion einen Rückgabewert reinschreibt.

[stOrM]

Zitat:

Zitat von Luckie

Der letzte Parameter müsste ein Zeiger auf einen Speicherbereich sein, weil dort die Funktion einen Rückgabewert reinschreibt.

Hi Luckie,
also ich hab das schon sooft umgestrickt, dass ich glaube das das Beispiel ansich fehlerhaft ist?
Auch mit dem letzten Parameter hasts nicht funktioniert, Fehlermeldung bleibt gleich leider.

Gruß
Marc

[Luckie]

Zeig mal den zugehörigen C Quellcode mit der Deklaration der Variablen.

[stOrM]

Zitat:

Zitat von Luckie

Zeig mal den zugehörigen C Quellcode mit der Deklaration der Variablen.

Also wie am Anfag der gesamte C Code ist hier zu finden:

TimeTrigger Example

ganz nach unten scrollen! :-)

[Mr_G]

Mal ne blöde Frage: Ich zähl bei dem C-Beispiel 8 Parameter, bei dir nur 7. Wie kommt denn das zustande?

[stOrM]

Zitat:

Zitat von Mr_G

Mal ne blöde Frage: Ich zähl bei dem C-Beispiel 8 Parameter, bei dir nur 7. Wie kommt denn das zustande?

Verdammt Gute Frage sogar!
Ich hab nur 7 zur Auswahl hier die da wäre:

Path
pDefinition
Flags
UserID
PassWord
LogOnType
sddl

:shock:

Aus der TLB

Delphi-Quellcode:

    function RegisterTaskDefinition(const Path: WideString; const pDefinition: ITaskDefinition; 
                                    flags: Integer; UserId: OleVariant; password: OleVariant; 
                                    LogonType: _TASK_LOGON_TYPE; sddl: OleVariant): IRegisteredTask; safecall;

[edit=mkinzler]Aufgefrischt wegen Cache-Fehler Mfg, mkinzler[/edit]

[Mr_G]

Hmm... Der letzte Parameter (ein out-Parameter) wird bei dir scheinbar als Result zurückgegeben. Nur wo kommt das eigentliche Return Value dann hin? Seltsam seltsam :gruebel:

[Apollonius]

Das passt schon. Dazu ist die Delphi-spezifische Aufrufkonvention Safecall da. Sie bewirkt, dass das Ergebnis in Wirklichkeit in einem Out-Parameter zurückgegeben wird. Die Fehlerprüfung mit dem eigentlichen Rückgabewert HResult erfolgt automatisch - im Fehlerfalle wird die Routine SafeCallErrorProc aufgerufen, was eine Exception auslöst, falls ComObj oder SysUtils eingebunden ist.

[stOrM]

Zitat:

Zitat von Apollonius

Das passt schon. Dazu ist die Delphi-spezifische Aufrufkonvention Safecall da. Sie bewirkt, dass das Ergebnis in Wirklichkeit in einem Out-Parameter zurückgegeben wird. Die Fehlerprüfung mit dem eigentlichen Rückgabewert HResult erfolgt automatisch - im Fehlerfalle wird die Routine SafeCallErrorProc aufgerufen, was eine Exception auslöst, falls ComObj oder SysUtils eingebunden ist.

Gut zu wissen! :-)
Gleich dreh ich durch!

Ok langer Kampf aber nun hab ichs endlich!

[Luckie]

Könntest du bitte den Code hier einstellen und den Thread als glöst kennzeichnen?

[stOrM]

Zitat:

Zitat von Luckie

Könntest du bitte den Code hier einstellen und den Thread als glöst kennzeichnen?

Oh sorry klar:
Das einzige was falsch war ist folgendes:

Delphi-Quellcode:

      pRegisteredTask := pRootFolder.RegisterTaskDefinition(WideString('\'),
        pTaskDefinition,
        TASK_CREATE_OR_UPDATE,
        WideString(pszName),
        WideString(pszPwd),
        TASK_LOGON_INTERACTIVE_TOKEN_OR_PASSWORD,
        [b][color=#ff0000]0[/color][/b]);

Es mußte 0 in Null geändert werden nun stimmen die Parameter bei mir.

Gruß
Marc