XProfan

Als erstes füge die Unit zum Programm hinzu:
 $U FTP2LV.PCU = List.
Erstelle in dem Profan-Programm ein leeres Listview mit dem Style $30 am Ende.
Beispiel:
listview&=CreateListView(%hwnd,%hinstance,0,$00FFFFFF,-1,$30)
ShowListView(listview&,10,10,775,550)
Ab jetzt braucht man sich nichtmehr um das ListView kümmern, der Rest macht die Unit.
Stelle eine Verbindung zum Server her.
Beispiel:
ftp(connect,anonymous,anony@mous.com,ftp.symantec.com,21)
Jetzt kommt die Unit zum Einsatz: LIST.FTPLV [Handle der ListView]
Beispiel:
LIST.FTPLV listview&
(Das aktuelle Verzeichniss wird angezeigt)
Jetzt kann z.B. in ein anderes Verzeichniss gewechselt werden:
Beispiel:
FTP(SetDir,/jpeg/)
und um die Liste wieder anzuzeigen, einfach wieder den Befehl:
LIST.FTPLV listview&
man braucht sich also nicht um das löschen der ListView zu kümmern. Das übernimmt die Unit.

 $P+
SetErrorLevel 0
USERMESSAGES 16,$0044
Declare lvdll&,ftpexit%,listview&
Def GetSysColor(1) !USER32,GetSysColor
 $I ListView_Funktionen.inc
lvdll&=usedll(Listview.dll)
Register(123456)  oder so ähnlich :-)
 $U FTP2LV.PCU = List.
SetTrueColor 1
WindowStyle 26
WindowTitle FTP2LV
Window %maxX/2-400,(%maxY/2-300)-800,600
CLS GetSysColor(15)
listview&=CreateListView(%hwnd,%hinstance,0,$00FFFFFF,-1,$30)
ShowListView(listview&,10,10,775,550)
InitMessages(%hwnd)
ftp(connect,anonymous,anony@mous.com,ftp.symantec.com,21)
LIST.FTPLV listview&
sleep 2000
FTP(SetDir,/jpeg/)
LIST.FTPLV listview&

WhileNot ftpexit%

    GetMessage
    Case %Umessage=16:ftpexit%=1

Wend

DestroyWindow(listview&)
CloseMessages(%hwnd)
Dispose clv1#
Dispose clv2#
Dispose clvall#
Dispose lvitem#
freedll lvdll&
ftp(disconnect)