PureBoard

Code: Alles auswählen

verb$ = "properties"
SEI.SHELLEXECUTEINFO
SEI\cbSize = SizeOf(SHELLEXECUTEINFO)
SEI\fMask = #SEE_MASK_NOCLOSEPROCESS | #SEE_MASK_INVOKEIDLIST | #SEE_MASK_FLAG_NO_UI
SEI\lpVerb = @verb$
SEI\lpParameters = 0
SEI\lpDirectory = 0
SEI\nShow = 0
SEI\hInstApp = 0
SEI\lpIDList = 0

File$ = "c:\windows\notepad.exe"
SEI\lpFile = @File$
ShellExecuteEx_(@SEI)



OpenWindow(0, 100,100,100,100,"Eigenschaften von Notepad.exe")

Repeat

Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Alles auswählen

RunProgram("explorer.exe", "/n,/select,C:\and.ico", "")
Delay(1111)
keybd_event_(#VK_MENU, 0, 0, 0)
keybd_event_(#VK_RETURN, 0, 0, 0)
keybd_event_(#VK_RETURN, 0, #KEYEVENTF_KEYUP, 0)
keybd_event_(#VK_TAB, 0, 0, 0)
keybd_event_(#VK_TAB, 0, #KEYEVENTF_KEYUP, 0)
keybd_event_(#VK_F4, 0, 0, 0)
keybd_event_(#VK_F4, 0, #KEYEVENTF_KEYUP, 0)
keybd_event_(#VK_MENU, 0, #KEYEVENTF_KEYUP, 0)