+ added the win.ini win16api functions

git-svn-id: trunk@31585 -

rtl/win16/winprocsh.inc

@@ -234,3 +234,14 @@ function GlobalDeleteAtom(atm: ATOM): ATOM; external 'USER';
 function GlobalFindAtom(lpszString: LPCSTR): ATOM; external 'USER';
 function GlobalGetAtomName(atom: ATOM; lpszBuffer: LPSTR; cbBuffer: SmallInt): UINT; external 'USER';
 function GetAtomHandle(atm: ATOM): HLOCAL; external 'KERNEL';
+
+{ WIN.INI Support }
+
+{ User Profile Routines }
+  function GetProfileInt(lpszSection: LPCSTR; lpszEntry: LPCSTR; default: SmallInt): UINT; external 'KERNEL';
+  function GetProfileString(lpszSection, lpszEntry, lpszDefault: LPCSTR; lpszReturnBuffer: LPSTR; cbReturnBuffer: SmallInt): SmallInt; external 'KERNEL';
+  function WriteProfileString(lpszSection, lpszEntry, lpszString: LPCSTR): BOOL; external 'KERNEL';
+
+  function GetPrivateProfileInt(lpszSection, lpszEntry: LPCSTR; default: SmallInt; lpszFilename: LPCSTR): UINT; external 'KERNEL';
+  function GetPrivateProfileString(lpszSection, lpszEntry, lpszDefault: LPCSTR; lpszReturnBuffer: LPSTR; cbReturnBuffer: SmallInt; lpszFilename: LPCSTR): SmallInt; external 'KERNEL';
+  function WritePrivateProfileString(lpszSection, lpszEntry, lpszString, lpszFilename: LPCSTR): BOOL; external 'KERNEL';

rtl/win16/wintypes.inc

@@ -326,3 +326,7 @@ const
 type
 { Atom Management }
   MAKEINTATOM = LPCSTR;
+
+const
+{ WIN.INI Support }
+  WM_WININICHANGE = $001A;