XProfan

 {$cleq}
 {$debug}
/* achtung beispielcode - der läuft nicht! */
seterrorlevel 0
 $U thread.pcu = thread.
 $U file.pcu = f
 $U optionsdialog.pcu = optionsdialog.
Declare Command#,StartupInfo#,ProcessInfo#,ExitCode#,appname$,appver$,appstring$,G_Mousex%,G_Mousey%,GlobMousePos#
Declare dlg&,dir&,stat&,_dlgw&,_dlgh&,_odlgw&,_odlgh&,hMenu&,hwin&,ftps&,ftpp&,ftpm&,_topspc&,hToolbar&,tdlg&,tcdir&
Declare fnt1&,fnt2&,wantconn%,actsid$,fh&,s$,tme&,otme&,_dblk&,_dlbstop%,_ofoc&,remdir$,realrmdir$,pdir$,_lm%,ftpprocess%
Declare fly1$[12],fly2$[12],fly3$[12],fly4$[12],fly5&[12],fi&,asciis$,transfmde%,timeoutcnt&,sec2%,fndups&,_tie$
Declare rect#,__fname$,__fsize$,_ismin%,_menflag%,conSid$,conSetupStringCache$
Def lm_(0) neq(external(USER32,GetAsyncKeyState,1),0)
Def rm_(0) neq(external(USER32,GetAsyncKeyState,2),0)
Def SetWindowLong(3) !USER32, SetWindowLongA
Def getWindowLong(2) ! user32,GetWindowLongA
appname$=iFTP
appver$=0.9g
app.init

whilenot (%key==2)

    _ofoc&=%getfocus;_lm%=0
    waitinput
    case lm_() : _lm%=1
    case (%key==13) : proceedFileClick
    case rm_()	: proceedContextMenue

    if ( (_ofoc&==%getfocus) and (_ofoc&<>0) )

        ifnot _dlbstop%

            ifnot thread.is(3)

                thread.start 3,5//doubleclickthread

            else

                thread.stop 3
                case _lm% : checkdblclickevnt

            endif

        else

            _dlbstop%=0

        endif

    endif

    if (menuitem(100))

        sendmessage(%hwnd,$10,0,0)
        setmenuitem 0

    elseif (menuitem(200))

        optionsdialog
        setmenuitem 0

    elseif (menuitem(998))

        erroring Über:
        The tiny iFTP.
        iFTP ist ein opensource FTP-Client, geschrieben in XProfan.
        http://xprofan.mxii.com
        (C)2005 iF

    elseif (menuitem(997))

        shell rundll32.exe url.dll,FileProtocolHandler http://xprofan.mxii.com/thread.core?t=1084&highlight=iftp
        setmenuitem 0

    elseif (menuitem(999))

        erroring Hilfe:

    elseif (menuitem(2001))

        createnewfilemenu

    elseif (menuitem(2002))

        proceedFileClick
        setmenuitem 0

    elseif (menuitem(2005))

        delonftp
        setmenuitem 0

    elseif (menuitem(2006))

        proceedbookmarkmenu
        setmenuitem 0

    elseif clicked(ftpp&)

        proceedstartchoosedconn

    elseif clicked(ftpm&)

        if (logoff())

        endif

        enablewindow ftpp&,1
        settext ftpp&,Login
        wantconn%=0

    endif

wend

app.kill
end