mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 15:29:34 +02:00
26 lines
325 B
ObjectPascal
26 lines
325 B
ObjectPascal
{$mode delphi}
|
|
unit uw4352d;
|
|
|
|
interface
|
|
|
|
uses
|
|
uw4352b, SysUtils;
|
|
|
|
type
|
|
TIdSysWin32 = class(TIdSysNativeVCL)
|
|
public
|
|
class function Win32MajorVersion : Integer;
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses uw4352e; // commenting this helps.
|
|
|
|
class function TIdSysWin32.Win32MajorVersion: Integer;
|
|
begin
|
|
Result := 100;
|
|
end;
|
|
|
|
end.
|