adison schaut sich noch um
Anmeldedatum: 30.07.2006 Beiträge: 9
|
|
adison schaut sich noch um
Anmeldedatum: 30.07.2006 Beiträge: 9
|
Verfasst am: 18.09.2007, 19:43 Titel: |
|
|
Also gelöst habe ich mein Problem selbst und zwar folgendermassen.
Da ich aber nicht mehr genau weiss welche der beiden Änderungen es nun waren poste ich mal beide.
Hoffe ich konnte damit auch anderen hilfesuchenden USERN weiterhelfen.
(AUSSER den Bornierten Sturköpfen dich mich Dickkopf u.s.w. beschimpften.) LACH !
Benutzt wurde dafür das Tool "X-SETUP Pro v8.1.110" in der "Klassische Darstellung" Einstellung.
(2) Darstellung\Explorer\Benutzerschnittstelle Einstellungen\"Klassischer" Explorer - EIN
(3) Darstellung\Explorer\Verhalten\Ordner automatisch erweitern - AUS
----------------------------------------------------------------------------------------------------------
(2) “Klassischer“ Explorer
'Declaration of some constants
sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\ClassicShell"
'Called when the Plugin is started
SUB Plugin_Initialize
s=RegReadValue(sP)
if s=1 then
Call SetUIElement(1,true)
end if
END SUB
'Called when the Plugin should validate the Data the user has entered
SUB Plugin_CheckData(ElementIndex)
END SUB
'Called when the Plugin should apply the changes
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
s=GetUIElement(1)
if s=true then
Call RegWriteValue(sP,1,2)
else
if RegValueExists(sP) then
Call RegDeleteValue(sP)
end if
end if
END SUB
'Called when the Plugin is about to be removed from memory
SUB Plugin_Terminate
END SUB
----------------------------------------------------------------------------------------------------------
(4) Ordner automatisch erweitern
sV="HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\FriendlyTree"
SUB Plugin_Initialize
i=RegReadValue(sV)
if i=1 then
Call SetUIElement(1,true)
end if
END SUB
SUB Plugin_Apply(ElementIndex,ElementSubIndex)
i=GetUIElement(1)
if i=true then
Call RegWriteValue(sV,1,2)
else
Call RegWriteValue(sV,0,2)
end if
END SUB
SUB Plugin_Terminate
END SUB
----------------------------------------------------------------------------------------------------------
|
|