;Autor: Sicro ;http://www.purebasic.fr/german/viewtopic.php?p=142231#p142231 EnableExplicit Define EventID Procedure.s GetItemText(Handle.l,Row.l,Col.l) Protected ProcessID.l, Process.l Protected *Item.LV_ITEM, Item.LV_ITEM Protected Buffer.s = Space(255) GetWindowThreadProcessId_(Handle,@ProcessID) Process = OpenProcess_(#PROCESS_VM_OPERATION | #PROCESS_VM_READ | #PROCESS_VM_WRITE,#False,ProcessID) *Item = VirtualAllocEx_(Process,0,4096,#MEM_COMMIT | #MEM_RESERVE,#PAGE_READWRITE) With Item \mask = #LVIF_TEXT \iItem = Row \iSubItem = Col \pszText = *Item + SizeOf(LV_ITEM) \cchTextMax = 255 EndWith WriteProcessMemory_(Process,*Item,@Item,SizeOf(Item),0) SendMessage_(Handle,#LVM_GETITEM,0,*Item) ReadProcessMemory_(Process,*Item + SizeOf(LV_ITEM),@Buffer,Len(Buffer),0) VirtualFreeEx_(Process,*Item,0,#MEM_RELEASE) CloseHandle_(Process) ProcedureReturn Buffer EndProcedure If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) ExplorerListGadget(1,10,10,480,380,"C:\",0) MessageRequester("",GetItemText(GadgetID(1),1,3),0) Repeat EventID=WaitWindowEvent() If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf ; IDE Options = PureBasic 5.31 (Windows - x64) ; CursorPosition = 2 ; Folding = - ; EnableUnicode ; EnableXP ; EnableUser ; EnableCompileCount = 0 ; EnableBuildCount = 0