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