.
See newer version later in thread
.

 
 
Working code in later post
 
 

Quote:

---

Tried to use your code and it appears to work fine

---

Quote:

---

but cannot run any apps through it

---

If VarType($oSelectedItem) AND $oSelectedItem.Selected
	$sCommandToRun=$oSelectedItem.SubItems(1).Text
	"Command to execute: "+$sCommandToRun+@CRLF
EndIf

If VarType($oSelectedItem) AND $oSelectedItem.Selected
	$sCommandToRun=$oSelectedItem.SubItems(1).Text
	"Command to execute: "+$sCommandToRun+@CRLF
	Run $sCommandToRun
EndIf

$=SetOption("ASCII","ON") $=SetOption("WrapAtEOL","ON") $=SetOption("Explicit","ON") Break ON
; Declare variables {{{
Global $SYSTEM,$FORMS
 
Global $TRUE,$FALSE
$TRUE=Not 0
$FALSE=Not $TRUE
 
Dim $sFolderToDisplay
$sFolderToDisplay=%USERPROFILE%+"\Desktop"
; }}}
; Initialise KiXforms system {{{
$SYSTEM=CreateObject("KiXtart.System")
If Not (9=VarType($SYSTEM)) $ERROR=@ERROR funError("Could not create KiXtart system - perhaps KiXforms is not registered?") Exit $ERROR EndIf
; Create a collection to index the forms. {{{
$FORMS=$SYSTEM.Collection()
; Make Form
udfMakeForm("frmMain")
If @ERROR Exit @ERROR EndIf
; }}}
; }}}
; Load the folder into the main form.
udfLoadProgramList($FORMS.Item("frmMain").controls("lvAppIcons"),$sFolderToDisplay)
$FORMS.Item("frmMain").Show
; Form event processing {{{
While $SYSTEM.ActiveForm.Visible
	$=Execute($SYSTEM.ActiveForm.DoEvents())
Loop
; }}}
Exit 0
Function udfOnDoubleClick($sControl) ; {{{
	Dim $oControl	$oControl=$SYSTEM.ActiveForm.Controls($sControl)
	Dim $oSelectedItem
	;$oControl.View=1+$oControl.View
	;If $oControl.View=4 $oControl.View=0 EndIf
		
	Select
	Case $oControl.Name="lvAppIcons"
		Dim $sCommandToRun
		$oSelectedItem=$oControl.FocusedItem
		If VarType($oSelectedItem) AND $oSelectedItem.Selected
			$sCommandToRun=$oSelectedItem.SubItems(1).Text
			"Command to execute: "+$sCommandToRun+@CRLF
		EndIf
	Case "Unhandled"
		"Unhandled double click on '"+$oControl.Name+"'"+@CRLF
	EndSelect
EndFunction ; }}}
Function udfMakeForm($n) ; {{{
	Dim $ERROR,$oControl,$f,$,$i,$oToolTip,$oSmallImageList,$oLargeImageList
	Select
	Case $n="frmMain"
		$oToolTip=$SYSTEM.ToolTip()
 
		$f=$SYSTEM.Form()
		If Not (9=VarType($f)) $ERROR=@ERROR funError("Could not create new form - perhaps KiXforms is not registered?") Exit $ERROR EndIf
		$f.Name=$n
		$FORMS.Add($f,$f.Name)
		$f.Caption="Custom Application Window"
		$f.Width=690
		$f.Height=335
		$f.Center
 
		$oControl=$f.Controls.Listview("lvAppIcons",0,0,688,300)
		$oControl.Name="lvAppIcons"
		$oControl.MultiSelect=$FALSE
		$oControl.View=0	; Large icons
		$oControl.Sorted=$TRUE
		$oSmallImageList=$SYSTEM.ImageList()
		$oSmallImageList.ImageSize=$SYSTEM.Size(16,16)
		$oControl.SmallImageList=$oSmallImageList
		$oLargeImageList=$SYSTEM.ImageList()
		$oLargeImageList.ImageSize=$SYSTEM.Size(32,32)
		$oControl.LargeImageList=$oLargeImageList
		$oControl.OnDoubleClick="udfOnDoubleClick('"+$oControl.Name+"')"
		$oToolTip.SetToolTip($oControl,"Double click on an application to launch it")
		$=$oControl.Columns.Add("Program",688,0)
		$=$oControl.Columns.Add("File Path",0,0)
	EndSelect
	Exit 0
EndFunction ; }}}
Function udfLoadProgramList($oControl,$sFolder) ; {{{
	Dim $oNewItem,$sFile,$sSuffix,$iIndex
	$sFile=Dir($sFolder)
	While Not @ERROR
		$iIndex=InStrRev($sFile,".")
		$sSuffix=SubStr($sFile,$iIndex+1)
		If $sSuffix="exe" OR $sSuffix="lnk"
			$oNewItem=$oControl.Items.Add
			$oNewItem.SubItems(0).Text=Left($sFile,$iIndex-1)
			$oNewItem.SubItems(1).Text=$sFolder+"\"+$sFile
			$oNewItem.ImageIndex=udfLoadIcon($sSuffix,$oControl,$oNewItem,$sFolder+"\"+$sFile)
		EndIf
		$sFile=Dir("")
	Loop
	Exit 0
EndFunction ; }}}
Function udfLoadIcon($sSuffix,$oControl,$oItem,$sIconPath) ; {{{
	Dim $oSmallIcon,$oLargeIcon,$oShell,$oShortCut
	$udfLoadIcon=$FALSE
	If $sSuffix="lnk"
		$oShell=CreateObject("wscript.shell")
		If 9=VarType($oShell)
			$oShortCut=$oShell.CreateShortCut($sIconPath)
			If $oShortCut.IconLocation<>",0"
				;$sIconPath=Left($oShortCut.IconLocation,InStrRev($oShortCut.IconLocation,",")-1)
				$sIconPath=$oShortCut.IconLocation
			EndIf
		EndIf
	EndIf
	$oSmallIcon=$SYSTEM.icon($sIconPath,16,16)
	If VarType($oSmallIcon)=9
		$udfLoadIcon=$oControl.SmallImageList.Images.Add($oSmallIcon)
		$oLargeIcon=$SYSTEM.icon($sIconPath,32,32)
		$udfLoadIcon=$oControl.LargeImageList.Images.Add($oLargeIcon)
	EndIf
	Exit 0
EndFunction ; }}}
; {{{ }}} vim: ai ts=4 sw=4 fdm=marker fdc=4 fml=0: