From ad2aa1ceb39b7011f2c65e14e7f40712a1012b90 Mon Sep 17 00:00:00 2001 From: marco Date: Tue, 10 Jan 2012 21:37:22 +0000 Subject: [PATCH] * Fix for #21058, cerapiuninit with lowercase init. git-svn-id: trunk@20044 - --- packages/winceunits/src/rapi.pp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/packages/winceunits/src/rapi.pp b/packages/winceunits/src/rapi.pp index 2cf58eeef5..cd8f45cf80 100644 --- a/packages/winceunits/src/rapi.pp +++ b/packages/winceunits/src/rapi.pp @@ -339,7 +339,7 @@ type //added 01/19/2003 - Octavio Hernandez; dotnet@danysoft.com TDeviceToDesktop = function(DesktopLocation, TableList: String; Sync: BOOL; Overwrite: Integer; DeviceLocation: String): Longint stdcall; - TCeRapiUnInit = function : LongInt stdcall; + TCeRapiUninit = function : LongInt stdcall; TCeFindAllFiles = function(Path: PWideChar; Attr: DWORD; var Count: DWord; var FindData: PCe_Find_Data_array): BOOL stdcall; TRapiFreeBuffer = procedure(p: Pointer) stdcall; @@ -348,7 +348,7 @@ type function CeRapiInit: LongInt; function CeRapiInitEx(var RInit: TRapiInit) : LongInt; -function CeRapiUnInit: LongInt; +function CeRapiUninit: LongInt; function CeFindAllFiles(Path: PWideChar; Attr: DWORD; var Count: DWord; var FindData: PCe_Find_Data_array): BOOL; procedure RapiFreeBuffer(p: Pointer); @@ -444,7 +444,7 @@ IMPLEMENTATION var mCeRapiInit : TCeRapiInit; - mCeRapiUnInit : TCeRapiUnInit; + mCeRapiUninit : TCeRapiUninit; mCeFindAllFiles: TCeFindAllFiles; mRapiFreeBuffer : TRapiFreeBuffer; mCeRapiInitEx: TCeRapiInitEx; @@ -530,7 +530,7 @@ begin {...and load all globals} @mCeRapiInit := GetProcAddress(RapiModule, 'CeRapiInit'); @mCeRapiInitEx := GetProcAddress(RapiModule, 'CeRapiInitEx'); - @mCeRapiUnInit := GetProcAddress(RapiModule, 'CeRapiUnInit'); + @mCeRapiUninit := GetProcAddress(RapiModule, 'CeRapiUninit'); @mCeFindAllFiles := GetProcAddress(RapiModule, 'CeFindAllFiles'); @mRapiFreeBuffer := GetProcAddress(RapiModule, 'RapiFreeBuffer');