XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Verzeichnis ändern auf readonly (und zurück)
Ändert ein Verzeichnis auf readonly und zurück
Autor Dieter Zornow
Def PathMakeSystemFolder(1) ! shlwapi,PathMakeSystemFolderA
Def PathUnmakeSystemFolder(1) ! shlwapi,PathUnmakeSystemFolderA

proc MakeSystemfolder

    parameters pfad$
    Return PathMakeSystemFolder(addr(pfad$))

endproc

proc UnMakeSystemfolder

    parameters pfad$
    Return PathUnmakeSystemFolder(addr(pfad$))

endproc

cls
print MakeSystemfolder(C:\Temp)
waitkey
print UnMakeSystemfolder(C:\Temp)
waitinput
end