Shellexecute richtig anwenden/übersetzen

[KodeZwerg]

Zitat von Uwe Raabe:

Da in Delphi die Anführungszeichen ja eh anders sind, wäre die richtige Umsetzung dann wohl:
  ShellExecute('RUNDLL32.exe', 'PRINTUI.DLL,PrintUIEntry /k /n "PDFCreator"', '', 'open', 1);

Delphi-Quellcode:

uses ShellApi;

...

function ExecuteShell(const Executable, Commands: String; const ShowConsole: Boolean): Cardinal;
 var
  ProcessInfo: TShellExecuteInfo;
 begin
  Result := Cardinal($FFFFFFFF);
  FillChar(ProcessInfo, SizeOf(TShellExecuteInfo), #0);
  with ProcessInfo do
  begin
   cbSize:= SizeOf( TShellExecuteInfo );
   fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_FLAG_DDEWAIT;
   Wnd := GetActiveWindow();
   lpVerb := 'open';
   lpFile:= PChar(Executable);
   lpParameters := PChar(Commands);
   lpDirectory := PChar(ExtractFilePath(Executable)); // <<-- diese zeile könnte probleme verursachen, eventuell anpassen (!)
   if ShowConsole then nShow := SW_SHOWDEFAULT else nShow := SW_HIDE;
  end;
  if ShellExecuteEx(@ProcessInfo) then
  begin
   if not GetExitCodeProcess(ProcessInfo.hProcess, Result) then Result := Cardinal($FFFFFFFF);
// GetExitCodeProcess(ProcessInfo.hProcess, Result);
   CloseHandle(ProcessInfo.hProcess);
  end
  else
  begin
   Result := GetLastError;
   exit;
  end;
 end;


...

ExecuteShell('RUNDLL32.exe', 'PRINTUI.DLL,PrintUIEntry /k /n "PDFCreator"', True);

Vielleicht klappt das?

[Delbor]

Hi KodeZwerg

Vielen Dank für deinen Code - funktioniert bestens und erzeugt mir so ein durchsuchbares Test-PDF. Alles, was mir jetzt noch bleibt,ist, die Quelle zu ändern - der Scanner liefert mir ein Bmp, bzw. ein von mir daraus erstelltes Jpeg. Aber das sollte eigentlich kein Problem mehr sein.

Gruss
Delbor

[KodeZwerg]

Freut mich das es klappt, nicht vergessen, habs oben nicht erwähnt, fehlercode prüfen/auswerten.
$FFFFFFFF = totaler fehler
nun kommt es darauf an,
man hat entweder den init-rückgabe wert der ShellExecuteEx oder einen vom System GetLastError auszuwerten.
shau am besten mal in doku nach dessen rückgabewerte, meine sind unbrauchbar/veraltet.
(ich kann dir mit dem creator nicht helfen, habe das teil nicht)

Viel Erfolg dabei, spiel damit ruhig rum, ich könnte mir vorstellen das lpDirectory in deinem speziellen fall (rundll) da ärger macht, aber wenn du bereits was damit erreichen konntest, um so besser

/edit
ps: ich habe es von hier, da stehen sehr viele varianten zur verfügung, im original ist auch noch eine "Warte" funktion, vielleicht wäre das sogar besser für dich?