Drucker via RunDll32 umbennen

[TheMiller]

Hallo,

neulich habe ich einen Thread eröffnet in dem es um das Umbennen eines Druckers ging. Ich habe mich heute wieder dran gesetzt und rausgefunden, dass man in der Kommandozeile einen Drucker auf folgende Weise erfolgreich umbennen kann:

Code:

rundll32 printui.dll,PrintUIEntry /Xs /n "ALTERNAME" Printername "NEUERNAME"

Nun habe ich es via ShellExecute probiert. Doch das passiert nix, außer, dass Windows sein "Ding"-Sound abspielt. Der Druckername ändert sich nicht. Hier mein Code:

Delphi-Quellcode:

ShellExecute(0, 'NULL', 'rundll32', 'printui.dll,PrintUIEntry /Xs /n "ALT" Printername "NEU"' , nil, 0);

Geht sowas nicht über ShellExecute? Den Drucker-Einstellungen-Dialog hatte ich schonmal offen.

Danke

[mkinzler]

Ruf mal ein cmd/command mit dem Rest als Parameter auf

[TheMiller]

Hm...

falls du es so gemeint hast...

Delphi-Quellcode:

ShellExecute(0, 'NULL', 'cmd', 'rundll32 printui.dll,PrintUIEntry /Xs /n "wow" Printername "NEU"' , nil, 0);

... das geht auch nicht.

Ich kann noch nichteinmal die Kommandozeile mit folgendem Code öffnen:

Delphi-Quellcode:

ShellExecute(0, 'open', 'C:\Windows\System32\cmd.exe', nil, nil, 0);

Seltsam... oder stehe ich auf der Leitung?

[mkinzler]

Das 0 als letzter Parameter heist unsichtbar
Was wird den zurückgegeben?

[TheMiller]

Och nö... Stimmt ja - das habe ich ganz übersehen. Nun wird wenigstens die CMD sichtbar. Aber den Parameter trägt er mir nicht ein.

Es ist lediglich der Pfad des aktuellen Verzeichnisses zu sehen. Hier meine aktuelle Version

Delphi-Quellcode:

ShellExecute(0, 'open', 'C:\Windows\System32\cmd.exe', 'rundll32 printui.dll,PrintUIEntry /Xs /n "wow" Printername "NEU"' , nil, SW_SHOW);

Auch das direkte Aufrufen der Parameter im "Dateinamen"-Parameter funktioniert nicht (so:)

Delphi-Quellcode:

  ShellExecute(0, 'open', 'C:\Windows\System32\cmd.exe rundll32 printui.dll,PrintUIEntry /Xs /n "wow" Printername "NEU"' ,', nil, nil, SW_SHOW);

Bei der oberen Version wird 42 zurückgegeben. SysErrorMessage sagt: "Der Vorgang wurde erfolgreich ausgeführt.". Nun ja, wenn man die Parameter missachtet, hat SysErrorMessage sogar recht...

[Neutral General]

Versuch es mal so:

Delphi-Quellcode:

ShellExecute(0, 'open', 'cmd.exe', '/C rundll32 printui.dll,PrintUIEntry /Xs /n "wow" Printername "NEU"' , nil, SW_SHOW);

[TheMiller]

Vielen Dank. Das funktioniert super. Ich kannte den /C-Parameter garnicht.

Super :bounce1: