Frage zu WinExec

[supermuckl]

na dann fahr ich halt meinen anderen PC hoch und komm ausm bett raus ;)

[Sprint]

Zitat:

Zitat von supermuckl

na dann fahr ich halt meinen anderen PC hoch und komm ausm bett raus ;)

Aber nicht das ich schuld hab', das du nicht genug schlaf bekommst. :)

[NicoDE]

Zitat:

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;

[supermuckl]

nönö ;)

also bei mir gehts.. habs 1:1 übernommen

bin eingeloggt als administrator

in Windoof 2003 deutsch

Delphi6 ent

button geklickt -> mauszeiger(sanduhr) -> Testdrucker in "Drucker" erschienen

[supermuckl]

und in S steht:

Code:

printui.dll,PrintUIEntry /if /b "Testdrucker" /f C:\WINDOW3\inf\ntprint.inf /r "lpt1:" /m "AGFA-AccuSet v52.3"

[Sprint]

Hätte Drysek ganz einfach gefragt wie man einen Drucker per API Aufruf installiert, dann hätte er von mir auch eine eleganteres Beispiel bekommen.

[supermuckl]

[OT]
da kenn ich n nettes sprichwort :)

"hätte der fuchs nicht geschissen hätte er einen hase gefangen"

oder in meiner 2. muttersprache:

"hät do fuchs net gschissn hätto n has gfanga hailandzacknochomool"

[/OT]

[Drysek]

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

Drysek