paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 19:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ converted the win16 network api functions

Browse Source 
git-svn-id: trunk@31580 -
This commit is contained in:
nickysn 2015-09-08 22:42:46 +00:00
parent 024ebb287e
commit 386c459534
2 changed files with 36 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win16/winprocsh.inc
View File

@ -199,3 +199,9 @@ function GetTempDrive(DriveLetter: Char): BYTE; external 'KERNEL';
function GetDriveType(Drive: SmallInt): UINT; external 'KERNEL';
function SetHandleCount(Number: UINT): UINT; external 'KERNEL';
{ Network support }
function WNetAddConnection(lpszNetPath, lpszPassword, lpszLocalName: LPSTR): UINT; external 'USER';
function WNetGetConnection(lpszLocalName, lpszRemoteName: LPSTR; cbBufferSize: LPUINT): UINT; external 'USER';
function WNetCancelConnection(lpszName: LPSTR; tForce: BOOL): UINT; external 'USER';

30
rtl/win16/wintypes.inc
View File

@ -29,6 +29,9 @@ type
{ PWORD is already defined in system }
LPWORD = ^Word; far;
PUINT = ^UINT;
LPUINT = ^UINT; far;
PLONG = ^LONG;
LPLONG = ^LONG; far;
@ -218,3 +221,30 @@ const
DRIVE_REMOVABLE = 2;
DRIVE_FIXED = 3;
DRIVE_REMOTE = 4;
{ Network support }
{ Errors }
WN_SUCCESS = $0000;
WN_NOT_SUPPORTED = $0001;
WN_NET_ERROR = $0002;
WN_MORE_DATA = $0003;
WN_BAD_POINTER = $0004;
WN_BAD_VALUE = $0005;
WN_BAD_PASSWORD = $0006;
WN_ACCESS_DENIED = $0007;
WN_FUNCTION_BUSY = $0008;
WN_WINDOWS_ERROR = $0009;
WN_BAD_USER = $000A;
WN_OUT_OF_MEMORY = $000B;
WN_CANCEL = $000C;
WN_CONTINUE = $000D;
{ Connection errors }
WN_NOT_CONNECTED = $0030;
WN_OPEN_FILES = $0031;
WN_BAD_NETNAME = $0032;
WN_BAD_LOCALNAME = $0033;
WN_ALREADY_CONNECTED = $0034;
WN_DEVICE_ERROR = $0035;
WN_CONNECTION_CLOSED = $0036;