IntegerをCardinalに変更

diff --git a/GikoSystem.pas b/GikoSystem.pas
index a9b5d1e..f1afb9f 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -1186,10 +1186,10 @@ end;
 }
 function TGikoSys.DirectoryExistsEx(const Name: string): Boolean;
 var
-       Code: Integer;
+       Code: Cardinal;
 begin
        Code := GetFileAttributes(PChar(Name));
-       Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
+       Result := (Code <> Cardinal(-1)) and (FILE_ATTRIBUTE_DIRECTORY and Code <> 0);
 end;
 
 {!