paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 00:27:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ Fixed declarations of chars to pchars

Browse Source
This commit is contained in:
michael 1999-07-05 14:01:40 +00:00
parent dbb520fd67
commit b3a81afd51
1 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
rtl/win32/ascdef.pp
View File

@ -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