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;