shellexecute mit Parameter?

[mlspider]

Starten einer fremden Application stellt eigentlich kein Problem dar. Allerdings scheitere ich bei der Parameterübergabee.

Hier ein simples Beispiel wie es offensichtlich nicht funktioniert.

shellexecute(application.Handle,nil,pchar('regedit'+' '+ '/s'),pchar('test.reg HKEY_CURRENT_USER'),nil,SW_ShowNormal);

[ste_ett]

Versuchs mal für den zweiten Parameter mit 'open'.

[himitsu]

shellexecute(application.Handle,nil,pchar('regedit'),pchar('test.reg HKEY_CURRENT_USER /s'),nil,SW_ShowNormal); ALLE Parameter sind im 4. Wert drin

[mlspider]

Es wird zwar der Schlüssel eingetragen, leider mit einer Sicherheitsabfrage. Diesen lästigen Dialog möchte ich vielmehr umgehen.

[mlspider]

Mal andersrum formuliert. In der CMD würde ich folgendes eingeben:

regedit /s C:\test.reg HKEY_CURRENT_USER

In Delphi würde es bei mir wie folgt aussehen:

ShellExecute(0, 'open', 'cmd.exe', PChar('regedit'),pchar('test.reg HKEY_CURRENT_USER /s'), nil, SW_SHOWNORMAL); Leider klappt auch diese Version nicht.

[himitsu]

regedit /s C:\test.reg HKEY_CURRENT_USER

Wird zu
ShellExecute(0, 'open', PChar('regedit'), pchar('/s C:\test.reg HKEY_CURRENT_USER'), nil, SW_SHOWNORMAL); oder
ShellExecute(0, nil, PChar('regedit'), pchar('/s C:\test.reg HKEY_CURRENT_USER'), nil, SW_SHOWNORMAL);

[mlspider]

Leuchtet ein. So geht es. Schönes Wochenende.