mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 23:19:24 +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
|
||||
{$IFDEF WINDOWS}
|
||||
Windows,
|
||||
Windows, SysUtils, Classes,
|
||||
{$ENDIF}
|
||||
dynlibs;
|
||||
|
||||
@ -1011,9 +1011,9 @@ const
|
||||
maxkeysize=255;
|
||||
var
|
||||
buf:string [maxkeysize];
|
||||
bufsize:int32;
|
||||
buftype:int32;
|
||||
res:int32;
|
||||
bufsize:longint;
|
||||
buftype:longint;
|
||||
res:longint;
|
||||
key,rkey:hkey;
|
||||
p,sp:pchar;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user