globalsysfunctions.pas

来自「功能强大的ER图建模工具的源代码。 可以代替ERWin了」· PAS 代码 · 共 63 行

unit GlobalSysFunctions;

//----------------------------------------------------------------------------------------------------------------------
//
// This file is part of fabFORCE DBDesigner4.
// Copyright (C) 2002 Michael G. Zinner, www.fabFORCE.net
//
// DBDesigner4 is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// DBDesigner4 is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with DBDesigner4; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
//
//----------------------------------------------------------------------------------------------------------------------
//
// Unit GlobalSysFunctions.pas
// ---------------------------
// Version 1.0, 20.08.2003, Mike
// Description
//   Sets the Global Font of the Application
//
// Changes:
//   Version 1.0, 20.08.2003, Mike
//     initial version
//
//----------------------------------------------------------------------------------------------------------------------


interface

uses QForms,
  IniFiles,
  SysUtils,
  {$IFDEF MSWINDOWS}
  Windows, Messages,
  ActiveX, ShellAPI, ShlObj, // for SHGetSpecialFolderLocation() und SHGetPathFromIDList()
  {$ENDIF}
  QGraphics;

procedure LoadApplicationFont;
{$IFDEF MSWINDOWS}
function GetSpecialFolder(Folder: Integer): String;
{$ENDIF}
function GetGlobalSettingsPath: string;

implementation

{$IFDEF MSWINDOWS}
//CSIDL_COOKIES              Cookies
//CSIDL_DESKTOPDIRECTORY     Desktop
//CSIDL_FAVORITES            Favoriten
//CSIDL_HISTORY              Internet-Verlauf
//CSIDL_INTERNET_CACHE       "Temporary Internet Files"
//CSIDL_PERSONAL             Eigene Dateien               $0005
//CSIDL_PROGRAMS             "Programme" im Startmen