XProfan

 $I SKCONTROL.INC
'Wenn die ListView.DLL VOR der SKControl.DLL geladen wird, stürzt XPROFAN ab.
'VAR LVDLL& = USEDLL("LISTVIEW.DLL")
VAR SKDLL& = USEDLL("SKCONTROL.DLL")
VAR LVDLL& = USEDLL("LISTVIEW.DLL")
SKCtrl_InitDll()
CLS
VAR Test$ = "Ich bin ein SKControl-Edit"
VAR Edit& = SKCtrl_CreateColorEdit(%HWND,ADDR(Test$), RGB(000,000,000) , RGB(255,000,000),10,10,100,20,%hInstance)
WAITINPUT
SKCtrl_InitDll()
FREEDLL SKDLL&
FREEDLL LVDLL&
END

Var old_file$ = GetDir$("@")'$ProgDir'
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Franks ListView
Declare lvdll&, ilist&,anzahl&,ndll&
lvdll&=usedll(old_file$+"\\Lib\\Listview.dll")
 $I Include\Listview_Funktionen.inc
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~SKControl.DLL - Funktionen definieren...
 $I Include\SKControl.inc
var hdll& = UseDll(old_file$+"\\Lib\\SKControl.dll")
SKCtrl_InitDll()
var skfb& = SKCtrl_RGB(150,200,200)
cls
var listview&=CreateListview(%hwnd,%hinstance,0,Rgb(255,255,255),-1,$31)
BuildListview(listview&,6,30,80,0)
ShowListview(listview&,10,100,400,300)
VAR Test$ = "Ich bin ein SKControl-Edit"
VAR Edit& = SKCtrl_CreateColorEdit(%HWND,ADDR(Test$), RGB(000,000,000) , RGB(255,000,000),10,10,100,20,%hInstance)
WaitInput
 $I Include\Listview_Dispose.inc
FreeDLL lvdll&
SKCtrl_DeInitDll()
FreeDll hDll&
end

'So gehts...'
VAR LVDLL& = USEDLL(GETDIR$("@") + "\\LISTVIEW.DLL")
VAR SKDLL& = USEDLL(GETDIR$("@") + "\\SKCONTROL.DLL")
'VAR LVDLL& = USEDLL(GETDIR$("@") + "\\LISTVIEW.DLL")
 $I SKCONTROL.INC
SKCtrl_InitDll()
CLS
VAR Test$ = "Ich bin ein SKControl-Edit"
VAR Edit& = SKCtrl_CreateColorEdit(%HWND,ADDR(Test$), RGB(000,000,000) , RGB(255,000,000),10,10,100,20,%hInstance)
WAITINPUT
SKCtrl_DeInitDll()
FREEDLL SKDLL&
FREEDLL LVDLL&
END