Frage zu WinExec

[NicoDE]

Zitat von supermuckl:

steht in S auch wirklich der string drin den du haben willst ?

Das kommt auf die Parameter an... wenn in den anderen Paramtern zufällig Umgebungsvariablen vorkommen, dann steht nicht mehr das drin, was eigentlich beabsichtigt war *g*

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Params: string;
  Return: HINST;
begin
  Params := 'printui.dll,PrintUIEntry' +
    ' /if' +
    ' /b "Testdrucker"' +
    ' /f "' + GetEnvironmentVariable('windir') + '\inf\ntprint.inf"' +
    ' /r "lpt1:"' +
    ' /m "AGFA-AccuSet v52.3"';
  Return := ShellExecute(Handle, 'open', 'rundll32', PChar(Params), nil,
    SW_SHOWNORMAL);
  if (Return <= 32) then
    ShowMessage(SysErrorMessage(Return));
end;