mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-22 14:30:52 +02:00
* fix windows compilation
git-svn-id: trunk@10230 -
This commit is contained in:
parent
51dc129916
commit
07723f3fdd
@ -997,7 +997,7 @@ end;
|
|||||||
|
|
||||||
uses
|
uses
|
||||||
{$IFDEF WINDOWS}
|
{$IFDEF WINDOWS}
|
||||||
Windows,
|
Windows, SysUtils, Classes,
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
dynlibs;
|
dynlibs;
|
||||||
|
|
||||||
@ -1011,9 +1011,9 @@ const
|
|||||||
maxkeysize=255;
|
maxkeysize=255;
|
||||||
var
|
var
|
||||||
buf:string [maxkeysize];
|
buf:string [maxkeysize];
|
||||||
bufsize:int32;
|
bufsize:longint;
|
||||||
buftype:int32;
|
buftype:longint;
|
||||||
res:int32;
|
res:longint;
|
||||||
key,rkey:hkey;
|
key,rkey:hkey;
|
||||||
p,sp:pchar;
|
p,sp:pchar;
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user