Wie kann man einen Systemdienst installieren?

[Portabella]

Hi,

ich würde mysql beim Benutzer gerne als Systemdienst installieren.
Ich versuch im Moment das ganze über ShellExecute zu machen und zwar so:

hlpSystemdienst := 'C:\mysql\bin\mysqld-nt --install';

if ShellExecute(0, nil, pchar(hlpSystemdienst), nil, nil, 9)< 33 then
showMessage('Fehler beim Installieren des Systemdienstes')
else ShowMessage('Mysqld-nt als Systemdienst installiert');

So scheint es allerdings nicht zu funktionieren. Weiß jemand warum?

Gruß, Diana

[alcaeus]

Hi Diana!

Das Installieren von Diensten ist Administratoren vorbehalten, überprüf mal ob das Kriterium erfüllt wird.
Weiters, wie kommst du auf ShellExecute(...) < 33? Bist du dir sicher dass diese Abfrage stimmt?

Greetz
alcaeus

[sakura]

Benutze doch bitte die [delphi] Tags zum Formattieren Deines Codes. "9"

......

[Portabella]

Hi,

das Admin-Kriterium ist erfüllt. Allerdings muss ich zugeben, dass ich die
if ShellExecute... < 33
Abfrage einfach übernommen habe. Was hat die 33 da zu bedeuten? In der Hilfe hab ich dazu grad nichts gefunden?