[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





Fitim Skenderi
Senior Software Development Specialist - CT Products
Visit us on the web at: http://www.inisoft.co.uk
Tel: +44 (0)141 552 8800   Fax: +44 (0)141 553 1893

This document should only be read by those persons to whom it is
addressed and is not intended to be relied upon by any person without
subsequent written confirmation of its contents. 
 
If you have received this E-mail message in error, please 
notify us immediately by telephone on +44 (0)141 552 8800