I think there is a bug in the group policies feature!
We use PDFCreator with AutoSave as service on a german "Windows Server 2008 R2" machine. The service runs as SYSTEM and I change the settings as Administrator. This works in PDFCreator 1.3.2 but not after the update to version 1.4.0. The service use no always some default values.
If I look at the source code, the "Policies" options get read AFTER the normal settings. This is OK, but some calls reset to default values, if the no "Policies" options exists. And this looks like a bug to me!
I added a (untested) patch at the end of the posting.
Greetings,
Tim Gerundt
Index: Common/modOptions.bas
— Common/modOptions.bas (Revision 1135)
+++ Common/modOptions.bas (Arbeitskopie)
@@ -423,10 +423,10 @@
50090 WriteToSpecialLogfile "Reg-Read options: HKEY_LOCAL_MACHINE"
50100 If LenB(ProfileName) > 0 Then
50110 myOptions = ReadOptionsReg(myOptions, "Software\PDFCreator\Profiles\" & ProfileName, HKEY_LOCAL_MACHINE, NoMsg)
-50120 myOptions = ReadOptionsReg(myOptions, "Software\Policies\PDFCreator\Profiles\" & ProfileName, HKEY_LOCAL_MACHINE, NoMsg)
+50120 myOptions = ReadOptionsReg(myOptions, "Software\Policies\PDFCreator\Profiles\" & ProfileName, HKEY_LOCAL_MACHINE, NoMsg, False)
50130 Else
50140 myOptions = ReadOptionsReg(myOptions, "Software\PDFCreator", HKEY_LOCAL_MACHINE, NoMsg)
-50150 myOptions = ReadOptionsReg(myOptions, "Software\Policies\PDFCreator", HKEY_LOCAL_MACHINE, NoMsg)
+50150 myOptions = ReadOptionsReg(myOptions, "Software\Policies\PDFCreator", HKEY_LOCAL_MACHINE, NoMsg, False)
50160 End If
50170 Else
50180 If Not IsWin9xMe Then
@@ -444,10 +444,10 @@
50300 WriteToSpecialLogfile "Reg-Read options: HKEY_CURRENT_USER [" & hProfile & "]"
50310 If LenB(ProfileName) > 0 Then
50320 myOptions = ReadOptionsReg(myOptions, "Software\PDFCreator\Profiles\" & ProfileName, hProfile, NoMsg)
-50330 myOptions = ReadOptionsReg(myOptions, "Software\Policies\PDFCreator\Profiles\" & ProfileName, hProfile, NoMsg)
+50330 myOptions = ReadOptionsReg(myOptions, "Software\Policies\PDFCreator\Profiles\" & ProfileName, hProfile, NoMsg, False)
50340 Else
50350 myOptions = ReadOptionsReg(myOptions, "Software\PDFCreator", hProfile, NoMsg)
-50360 myOptions = ReadOptionsReg(myOptions, "Software\Policies\PDFCreator", hProfile, NoMsg)
+50360 myOptions = ReadOptionsReg(myOptions, "Software\Policies\PDFCreator", hProfile, NoMsg, False)
50370 End If
50380 End If
50390 WriteToSpecialLogfile "Reg-Read options: HKEY_LOCAL_MACHINE"
Index: DeveloperTool/frmMain.frm
===================================================================
— DeveloperTool/frmMain.frm (Revision 1135)
+++ DeveloperTool/frmMain.frm (Arbeitskopie)
@@ -1204,10 +1204,10 @@
Print #fn, " WriteToSpecialLogfile ""Reg-Read options: HKEY_LOCAL_MACHINE"""
Print #fn, " If LenB(ProfileName) > 0 Then"
Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\PDFCreator\Profiles\"" & ProfileName, HKEY_LOCAL_MACHINE, NoMsg)"
- Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\Policies\PDFCreator\Profiles\"" & ProfileName, HKEY_LOCAL_MACHINE, NoMsg)"
+ Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\Policies\PDFCreator\Profiles\"" & ProfileName, HKEY_LOCAL_MACHINE, NoMsg, False)"
Print #fn, " Else"
Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\PDFCreator"", HKEY_LOCAL_MACHINE, NoMsg)"
- Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\Policies\PDFCreator"", HKEY_LOCAL_MACHINE, NoMsg)"
+ Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\Policies\PDFCreator"", HKEY_LOCAL_MACHINE, NoMsg, False)"
Print #fn, " End If"
Print #fn, " Else"
Print #fn, " If Not IsWin9xMe Then"
@@ -1225,10 +1225,10 @@
Print #fn, " WriteToSpecialLogfile ""Reg-Read options: HKEY_CURRENT_USER ["" & hProfile & ""]"""
Print #fn, " If LenB(ProfileName) > 0 Then"
Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\PDFCreator\Profiles\"" & ProfileName, hProfile, NoMsg)"
- Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\Policies\PDFCreator\Profiles\"" & ProfileName, hProfile, NoMsg)"
+ Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\Policies\PDFCreator\Profiles\"" & ProfileName, hProfile, NoMsg, False)"
Print #fn, " Else"
Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\PDFCreator"", hProfile, NoMsg)"
- Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\Policies\PDFCreator"", hProfile, NoMsg)"
+ Print #fn, " myOptions = ReadOptionsReg(myOptions, ""Software\Policies\PDFCreator"", hProfile, NoMsg, False)"
Print #fn, " End If"
Print #fn, " End If"
Print #fn, " WriteToSpecialLogfile ""Reg-Read options: HKEY_LOCAL_MACHINE"""