Forum: Win32/Win64 API (native code)
Delphi
by Drysek,
22. Sep 2004
Hi danke für euer Feedbacks es funktioniert jetzt auch bei mir !!!
Tausend Dank
mfg
Drysek
p.s. wenn ich auf eure Antwort Zeit gucke ohh Mann !! ;)
mfg
Forum: Win32/Win64 API (native code)
Delphi
by Drysek,
22. Sep 2004
Hi, erstma Danke das Ihr euch mit meiner Fragestellung beschäftigt !
Hab euren Ratschlag beherzigt und habe die Systemvariable mit folgendem Code umgewandelt !
var
strPath : String;
Buf : array of Char;
x : THandle;
begin
Forum: Win32/Win64 API (native code)
Delphi
by Drysek,
21. Sep 2004
Hi dann frage ich mal anders, warum klappt folgender Aufruf nicht !
ShellExecute(Form1.Handle, 'open', 'rundll32 printui.dll,PrintUIEntry', '/if /b "Test Printer2" /f "%windir%\inf\ntprint.inf" /r "TestPort:" /m "Apple Color LW 12/660 PS', '', SW_NORMAL);
Wenn ich ihn so ausführe passiert anscheinned rein gar nix, ich vermute aber das der Befehl
nicht bis zu Ende ausgeführt wird, sondern...
Forum: Win32/Win64 API (native code)
Delphi
by Drysek,
21. Sep 2004
Hallo,
ich möchte einen Drucker unter Windows hinzufügen das funktioniert auch alles wunderbar in der Komandozeile.
Hier der Aufruf:
rundll32 printui.dll,PrintUIEntry /if /b "Testdrucker" /f %windir%\inf\ntprint.inf /r "lpt1:" /m "AGFA-AccuSet v52.3"
Wenn ich das gleiche aber mit WinExec aufrufe bekomme ich einen Fehler der mir nichts sagt: