+ Fixed declarations of chars to pchars

rtl/win32/ascdef.pp

@@ -892,24 +892,24 @@ uses
 
   function StartService(hService:SC_HANDLE; dwNumServiceArgs:DWORD; var lpServiceArgVectors:LPCSTR):WINBOOL;
 
-  function DragQueryFile(_para1:HDROP; _para2:cardinal; var _para3:char; _para4:cardinal):cardinal;
+  function DragQueryFile(_para1:HDROP; _para2:cardinal; _para3:pchar; _para4:cardinal):cardinal;
 
-  function ExtractAssociatedIcon(_para1:HINST; var _para2:char; var _para3:WORD):HICON;
+  function ExtractAssociatedIcon(_para1:HINST; _para2:pchar; var _para3:WORD):HICON;
 
-  function ExtractIcon(_para1:HINST; var _para2:char; _para3:cardinal):HICON;
+  function ExtractIcon(_para1:HINST; _para2:pchar; _para3:cardinal):HICON;
 
-  function FindExecutable(var _para1:char; var _para2:char; var _para3:char):HINST;
+  function FindExecutable(_para1:pchar; _para2:pchar; _para3:pchar):HINST;
 
-  function ShellAbout(_para1:HWND; var _para2:char; var _para3:char; _para4:HICON):longint;
+  function ShellAbout(_para1:HWND; _para2:pchar; _para3:pchar; _para4:HICON):longint;
 
-  function ShellExecute(_para1:HWND; var _para2:char; var _para3:char; var _para4:char; var _para5:char;
+  function ShellExecute(_para1:HWND; _para2:pchar;_para3:pchar;_para4:pchar;_para5:pchar;
              _para6:longint):HINST;
 
-  function DdeCreateStringHandle(_para1:DWORD; var _para2:char; _para3:longint):HSZ;
+  function DdeCreateStringHandle(_para1:DWORD; _para2:pchar; _para3:longint):HSZ;
 
   function DdeInitialize(var _para1:DWORD; _para2:CALLB; _para3:DWORD; _para4:DWORD):UINT;
 
-  function DdeQueryString(_para1:DWORD; _para2:HSZ; var _para3:char; _para4:DWORD; _para5:longint):DWORD;
+  function DdeQueryString(_para1:DWORD; _para2:HSZ; _para3:pchar; _para4:DWORD; _para5:longint):DWORD;
 
   function LogonUser(_para1:LPSTR; _para2:LPSTR; _para3:LPSTR; _para4:DWORD; _para5:DWORD;
              var _para6:HANDLE):WINBOOL;
@@ -1775,24 +1775,24 @@ uses
 
   function StartService(hService:SC_HANDLE; dwNumServiceArgs:DWORD; var lpServiceArgVectors:LPCSTR):WINBOOL; external 'advapi32' name 'StartServiceA';
 
-  function DragQueryFile(_para1:HDROP; _para2:cardinal; var _para3:char; _para4:cardinal):cardinal; external 'shell32' name 'DragQueryFileA';
+  function DragQueryFile(_para1:HDROP; _para2:cardinal; _para3 : pchar; _para4:cardinal):cardinal; external 'shell32' name 'DragQueryFileA';
 
-  function ExtractAssociatedIcon(_para1:HINST; var _para2:char; var _para3:WORD):HICON; external 'shell32' name 'ExtractAssociatedIconA';
+  function ExtractAssociatedIcon(_para1:HINST; _para2 : pchar; var _para3:WORD):HICON; external 'shell32' name 'ExtractAssociatedIconA';
 
-  function ExtractIcon(_para1:HINST; var _para2:char; _para3:cardinal):HICON; external 'shell32' name 'ExtractIconA';
+  function ExtractIcon(_para1:HINST; _para2 : pchar; _para3:cardinal):HICON; external 'shell32' name 'ExtractIconA';
 
-  function FindExecutable(var _para1:char; var _para2:char; var _para3:char):HINST; external 'shell32' name 'FindExecutableA';
+  function FindExecutable(_para1 : pchar; _para2 : pchar; _para3:pchar):HINST; external 'shell32' name 'FindExecutableA';
 
-  function ShellAbout(_para1:HWND; var _para2:char; var _para3:char; _para4:HICON):longint; external 'shell32' name 'ShellAboutA';
+  function ShellAbout(_para1:HWND; _para2:pchar; _para3:pchar; _para4:HICON):longint; external 'shell32' name 'ShellAboutA';
 
-  function ShellExecute(_para1:HWND; var _para2:char; var _para3:char; var _para4:char; var _para5:char;
+  function ShellExecute(_para1:HWND; _para2:pchar; _para3:pchar; _para4:pchar;_para5:pchar;
              _para6:longint):HINST; external 'shell32' name 'ShellExecuteA';
 
-  function DdeCreateStringHandle(_para1:DWORD; var _para2:char; _para3:longint):HSZ; external 'user32' name 'DdeCreateStringHandleA';
+  function DdeCreateStringHandle(_para1:DWORD; _para2 : pchar; _para3:longint):HSZ; external 'user32' name 'DdeCreateStringHandleA';
 
   function DdeInitialize(var _para1:DWORD; _para2:CALLB; _para3:DWORD; _para4:DWORD):UINT; external 'user32' name 'DdeInitializeA';
 
-  function DdeQueryString(_para1:DWORD; _para2:HSZ; var _para3:char; _para4:DWORD; _para5:longint):DWORD; external 'user32' name 'DdeQueryStringA';
+  function DdeQueryString(_para1:DWORD; _para2:HSZ; _para3 : pchar; _para4:DWORD; _para5:longint):DWORD; external 'user32' name 'DdeQueryStringA';
 
   function LogonUser(_para1:LPSTR; _para2:LPSTR; _para3:LPSTR; _para4:DWORD; _para5:DWORD;
              var _para6:HANDLE):WINBOOL; external 'advapi32' name 'LogonUserA';
@@ -1808,7 +1808,10 @@ end.
 {$endif not windows_include_files}
 {
   $Log$
-  Revision 1.10  1999-05-10 19:34:08  florian
+  Revision 1.11  1999-07-05 14:01:40  michael
+  + Fixed declarations of chars to pchars
+
+  Revision 1.10  1999/05/10 19:34:08  florian
     * moved all opengl32.dll stuff to a newly created opengl32 unit, so
       win32 programs should also run on Windows without opengl32.dll