/usr/share/doc/fp-compiler/2.6.4/wince/testemu/w32rapi.pp is in fp-compiler-2.6.4 2.6.4+dfsg-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 | {
This unit contains the record definition for the Win32 RAPI
Copyright (c) 2006 Free Pascal development team.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
{
rapi.h
Changes :
02-15-2006 : orinaudo@gmail.com, First release
require ActiveSync installed on the windows PC
tested with ActiveSync 4.1
}
unit w32rapi;
{$calling stdcall}
interface
uses windows;
{* const **********************************************************************}
const
RAPILIB = 'rapi.dll';
CERAPI_E_ALREADYINITIALIZED = $80041001;
{* types **********************************************************************}
type
TRapiInit = record
cbSize:DWORD;
heRapiInit:THandle;
hrRapiInit:HResult;
end;
{* functions*******************************************************************}
function CeCloseHandle(hFile: HANDLE):WINBOOL; external RAPILIB name 'CeCloseHandle';
function CeCreateFile( lpFileName:LPCWSTR; dwDesiredAccess:DWORD; dwShareMode: DWORD; lpSecurityAttributes:LPSECURITY_ATTRIBUTES; dwCreationDisposition:DWORD; dwFlagsAndAttributes:DWORD; hTemplateFile:HANDLE): HANDLE; external RAPILIB name 'CeCreateFile';
function CeCreateProcess(lpApplicationName : LPCWSTR; lpCommandLine: LPCWSTR; lpProcessAttributes: LPSECURITY_ATTRIBUTES; lpThreadAttributes:LPSECURITY_ATTRIBUTES; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: LPVOID; lpCurrentDirectory: LPWSTR; lpStartupInfo:LPSTARTUPINFO; lpProcessInformation: LPPROCESS_INFORMATION):WINBOOL; external RAPILIB name 'CeCreateProcess';
function CeDeleteFile(lpFileName: LPCWSTR): WINBOOL; external RAPILIB name 'CeDeleteFile';
function CeGetLastError: DWORD; external RAPILIB name 'CeGetLastError';
function CeReadFile( hFile: HANDLE; lpBuffer: LPVOID; nNumberOfBytesToRead: DWORD; lpNumberOfBytesRead: LPDWORD; lpOverlapped: LPOVERLAPPED):WINBOOL; external RAPILIB name 'CeReadFile';
function CeWriteFile( hFile: HANDLE; lpBuffer: LPCVOID; nNumberOfBytesToWrite: DWORD; lpNumberOfBytesWritten: LPDWORD; lpOverlapped: LPOVERLAPPED):WINBOOL; external RAPILIB name 'CeWriteFile';
function CeRapiGetError:Longint; external RAPILIB name 'CeRapiGetError';
function CeRapiInit:Longint; external RAPILIB name 'CeRapiInit';
function CeRapiInitEx(var RInit:TRapiInit) : LongInt; external RAPILIB name 'CeRapiInitEx';
function CeRapiUninit:Longint; external RAPILIB name 'CeRapiUninit';
function CeGetFileAttributes(lpFileName:LPCWSTR): longint; external RAPILIB name 'CeGetFileAttributes';
function CeCreateDirectory(lpPathName:LPCWSTR;lpSecurityAttributes:pointer):WINBOOL; external RAPILIB name 'CeCreateDirectory';
implementation
initialization
finalization
end.
|