← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to rtl/win32/winsysut.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/win32/winsysut.pp
1
1
{
2
 
    $Id: winsysut.pp,v 1.1 2004/02/08 11:00:18 michael Exp $
 
2
    $Id: winsysut.pp,v 1.2 2005/02/14 17:13:32 peter Exp $
3
3
    This file is part of the Free Pascal run time library.
4
4
    Copyright (c) 2003 by the Free Pascal development team
5
5
 
6
6
    Windows specific versions of Borland SysUtils routines.
7
 
    
 
7
 
8
8
    See the file COPYING.FPC, included in this distribution,
9
9
    for details about the copyright.
10
10
 
20
20
 
21
21
Uses Windows,SysUtils;
22
22
 
23
 
const  
 
23
const
24
24
  Win32Platform     : Integer = 0;
25
25
  Win32MajorVersion : Integer = 0;
26
26
  Win32MinorVersion : Integer = 0;
27
27
  Win32BuildNumber  : Integer = 0;
28
 
                          
 
28
 
29
29
  Win32CSDVersion   : string = '';
30
 
 
 
30
 
31
31
function CheckWin32Version(Major,Minor : Integer ): Boolean;
32
32
function CheckWin32Version(Major : Integer): Boolean;
33
 
Function Win32Check(RetVal: BOOL): BOOL; 
34
 
Procedure RaiseLastWin32Error; 
 
33
Function Win32Check(RetVal: BOOL): BOOL;
 
34
Procedure RaiseLastWin32Error;
35
35
 
36
36
Implementation
37
37
 
41
41
  RaiseLastOSError;
42
42
end;
43
43
 
44
 
Function Win32Check(RetVal: BOOL): BOOL; 
 
44
Function Win32Check(RetVal: BOOL): BOOL;
45
45
 
46
46
begin
47
 
  if Not RetVal then 
 
47
  if Not RetVal then
48
48
    RaiseLastOSError;
49
49
  Result := RetVal;
50
50
end;
53
53
 
54
54
var
55
55
  Info: TOSVersionInfo;
56
 
  
 
56
 
57
57
begin
58
58
  Info.dwOSVersionInfoSize := SizeOf(Info);
59
59
  if GetVersionEx(Info) then