[Info-tech] RE: Ndihme ne VB....

[Fitim Skenderi]

Provo API funksionet dhe strukturat e me poshtme :



Public Const OFS_MAXPATHNAME = 128


Public Type OVERLAPPED
        Internal As Long
        InternalHigh As Long
        offset As Long
        OffsetHigh As Long
        hEvent As Long
End Type

Public Type OFSTRUCT
        cBytes As Byte
        fFixedDisk As Byte
        nErrCode As Integer
        Reserved1 As Integer
        Reserved2 As Integer
        szPathName(OFS_MAXPATHNAME) As Byte
End Type

Public Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As
String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Public Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long,
lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead
As Long, lpOverlapped As OVERLAPPED) As Long



me nderime

Fitim Skenderi

fitims at syntelate.com