Hi, erstma Danke das Ihr euch mit meiner Fragestellung beschäftigt !
Hab euren Ratschlag beherzigt und habe die Systemvariable mit folgendem Code umgewandelt !
Delphi-Quellcode:
var
strPath : String;
Buf : array[0..MAX_PATH] of Char;
x : THandle;
begin
strPath := '%windir%';
ExpandEnvironmentStrings(PCHAR(strPath), Buf, sizeof(Buf));
strPath := ' /if /b "Test Printer2" /f "' + Buf + '\inf\ntprint.inf" /r "TestPort:" /m "Apple Color LW 12/660 PS"';
x := ShellExecute(0, 'open', 'rundll32 printui.dll,PrintUIEntry', Pchar(strPath), NIL, SW_NORMAL);
ShowMessage(IntToStr(x));
Leider funktioniert der Aufruf ShellExecute mit den von mir übergebenen Parametern immer noch nicht ! Ich finde den Fehler einfach nicht !!
Wäre nett wenn Ihr mir bitte noch einmal nen Tipp geben könntet ! Vielleicht liegts ja an der Parameterübergabe an ShellExecute ??
Ach ja ShellExecute gibt den FehlerCode 2 zurück -> ERROR_PATH_NOT_FOUND
mfg
Drysek
[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]