Vážený pane Linhart, mnohokrát Vám děkuji za perfektní řešení. Přesně takto jsem si to představoval. Jen mě z počátku trochu pozlobila funkce POS, než jsem zjistil, že je zřejmě Case Sensitive a tak jsem si Vámi uvedený řádek, kde se funkce POS volá, dovolil upravit následovně:
if Pos('PDFPRINTER', UpperCase(WizardSelectedComponents(False))) > 0 then
...
Poté již vše pracuje naprosto skvěle. Ještě jednou Vám moc děkuji, ušetřil jste mi mnoho práce a bádáni.
|