Frage zu WinExec

[Drysek]

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]