>* Tamanho do arquivo em bytes >* Passar o Path com o nome do arquivo, exemplo: api_Tamanho_arquivo("C:\x\adm.exe") >Function api_Tamanho_arquivo >LPARAMETERS lcFilename >DECLARE INTEGER GetFileSize IN kernel32; > INTEGER hFile,; > INTEGER @ lpFileSizeHigh >DECLARE INTEGER OpenFile IN kernel32; > STRING lpFileName,; > STRING @ lpReOpenBuff,; > INTEGER wStyle >DECLARE INTEGER CloseHandle IN kernel32 INTEGER hObject > >#DEFINE OF_READ 0 >#DEFINE OF_SHARE_DENY_NONE 64 >#DEFINE HFILE_ERROR -1 >#DEFINE dwordPlus 4294967296 && 0xffffffff + 1 > >LOCAL lpReOpenBuff, hFile, lnSizeLo, lnSizeHi > >lpReOpenBuff = REPLICATE(CHR(0), 250) >hFile = OpenFile (lcFilename, @lpReOpenBuff, OF_SHARE_DENY_NONE) > >IF hFile <> HFILE_ERROR > lnSizeHi = 0 > lnSizeLo = GetFileSize (hFile, @lnSizeHi) > RETURN lnSizeHi * dwordPlus + lnSizeLo > = CloseHandle (hFile) >ELSE > RETURN 0 >ENDIF >>[]'s