ftp del

kendimce ftpci diye bir class yazmıştım, can alıcı komutların (declare dlls) hepsini aşağıya kopyaladım:

DECLARE INTEGER URLDownloadToFile IN urlmon.dll;
    INTEGER pCaller, STRING szURL,;
    STRING szFileName, INTEGER dwReserved,;
    INTEGER lpfnCB

* Declare a Kernel32 Functions
DECLARE Integer GetLastError IN Kernel32

DECLARE Integer FileTimeToSystemTime IN Kernel32 ;
String @lpcBuffer, String @lpcBuffer

* Declare DLL functions used by Program
DECLARE Integer InternetAutodial IN WinInet ;
Integer nAccessType, Integer nHandle

DECLARE Integer InternetAutodialHangup IN WinInet ;
Integer nFlags

DECLARE Integer InternetDial IN WinInet ;
Integer nHandle, String @lpcDialUp, Integer nAccessType, Integer @nConnect_Handle, ;
Integer nFlags

DECLARE Integer InternetHangUp IN WinInet ;
Integer nConnect_Handle, Integer nFlags

DECLARE Integer InternetGetConnectedState IN WinInet ;
Integer @nContext, Integer nFlags

DECLARE Integer InternetGoOnline IN WinInet ;
String @lpcURL, Integer nHandle, Integer nFlags

DECLARE Integer InternetOpen IN WinInet ;
String @lpcAgent, Integer nAccessType, String @lpcProxyName, ;
String @lpcProxyBypass, Integer nFlags

DECLARE Integer InternetConnect IN WinInet ;
Integer nInet_Handle, String @lpcServer, Short nPort, String @lpcUserName, ;
String @lpcPassword, Integer nService, Integer nFlags, Integer nContext

DECLARE Integer InternetCloseHandle IN WinInet Integer nConnect_Handle

* FTP Functions
DECLARE Integer FtpCreateDirectory IN WinInet ;
Integer nConnect_Handle, String @lpcDirectory

DECLARE Integer FtpDeleteFile IN WinInet ;
Integer nConnect_Handle, String @lpcFileName

DECLARE Integer FtpFindFirstFile IN WinInet ;
Integer nConnect_Handle, String @lpcSearchStr, String @lpcWIN32_FIND_DATA, ;
Integer nFlags, Integer nContext

DECLARE Integer InternetFindNextFile IN WinInet ;
Integer nConnect_Handle, String @lpcWIN32_FIND_DATA

DECLARE Integer FtpGetCurrentDirectory IN WinInet ;
Integer nConnect_Handle, String @lpcDirectory, Integer @nMax_Path

DECLARE Integer FtpGetFile IN WinInet ;
Integer nConnect_Handle, String @lpcRemoteFile, String @lpcNewFile, ;
Integer nFailIfExists, Integer nAttributes, Integer nFlags, ;
Integer nContext

DECLARE Integer FtpOpenFile IN WinInet ;
Integer nConnect_Handle, String @lpcRemoteFile, Integer nAccessType, ;
Integer nFlags, Integer nContext

DECLARE Integer FtpPutFile IN WinInet ;
Integer nConnect_Handle, String @lpcNewFile, String @lpcRemoteFile, ;
Integer nFlags, Integer nContext

DECLARE Integer FtpRemoveDirectory IN WinInet ;
Integer nConnect_Handle, String @lpcDirectory

DECLARE Integer FtpRenameFile IN WinInet ;
Integer nConnect_Handle, String @lpcRemoteFile, String @lpcNewFile

DECLARE Integer FtpSetCurrentDirectory IN WinInet ;
Integer nConnect_Handle, String @lpcDirectory

DECLARE Integer InternetGetLastResponseInfo IN WinInet ;
Integer @nError, String @lpcBuffer, Integer @nMax_Path

**************
DECLARE INTEGER GetAdaptersInfo IN iphlpapi;
    STRING @pAdapterInfo, LONG @pOutBufLen
************