9. Februar 2009 19:29
9. Februar 2009 22:47
10. Februar 2009 10:08
Name DataType Subtype Length
V_Pfad Text 120
V_Befehlszeile Text 120
V_Befehl Text 120
AShell Automation 'Windows Script Host Object Model'.WshShell
i Integer
V_Pfad := 'c:\pdf\pdf.pdf';
CREATE(AShell);
V_Befehlszeile := AShell.RegRead('HKEY_CLASSES_ROOT\acrobat\shell\open\command\');
V_Befehlszeile := COPYSTR(V_Befehlszeile,1,STRLEN(V_Befehlszeile)-8);
V_befehl := ' /s /p /h '+V_Pfad;
//AcroRd32.exe /s = without splash screen
//AcroRd32.exe /h = hidden
//AcroRd32.exe /p = print to standard printer
REPEAT
i := i + 1;
SHELL(V_Befehlszeile,V_Befehl);
UNTIL i = 2; //Anzahl Ausdrucke