Code: Select all
; IDE Options = PureBasic v3.94 (Windows - x86)
;By netfriends
#FILE_LIST_DIRECTORY = $0001
#FILE_SHARE_READ = $00000001
#FILE_SHARE_DELETE = $00000004
#OPEN_EXISTING = $3
#FILE_FLAG_BACKUP_SEMANTICS = $02000000
Enumeration
#Window_0
EndEnumeration
;- Gadget Constants
;
Enumeration
#String_0
#Button_0
#Button_1
EndEnumeration
Procedure Open_Window_0()
If OpenWindow(#Window_0, 336, 161, 563, 201, #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "CT+pro Studio")
If CreateGadgetList(WindowID())
StringGadget(#String_0, 50, 40, 460, 20, "")
ButtonGadget(#Button_0, 50, 90, 210, 50, "lock")
ButtonGadget(#Button_1, 290, 90, 210, 50, "unlock")
EndIf
EndIf
EndProcedure
If OpenLibrary(0,"kernel32.dll")
Open_Window_0()
Repeat
EventID = WaitWindowEvent()
If EventID = #PB_Event_Gadget
If EventGadgetID() = #Button_0 ; Read
hDir.l=CallFunction(0, "CreateFileA",GetGadgetText(#String_0),#FILE_LIST_DIRECTORY,0,0,#OPEN_EXISTING,#FILE_FLAG_BACKUP_SEMANTICS,0)
ElseIf EventGadgetID() = #Button_1
CallFunction(0, "CloseHandle",hDir)
EndIf
EndIf
Until EventID = #PB_Event_CloseWindow
EndIf