Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi API in Unit nutzen? (https://www.delphipraxis.net/131552-api-unit-nutzen.html)

moelski 26. Mär 2009 13:23


API in Unit nutzen?
 
Moin !

Ich habe eine Unit in der ich eine Klasse definiert habe:
Delphi-Quellcode:
unit Transe;

interface

Uses Windows, Messages, SysUtils, Variants, Classes,
     {Winsock, WinInet,} ShellAPI, Dialogs, Forms, TypInfo,
     
     OmniXML, OmniXMLUtils;

type
  TTranslate = class(TPersistent)
    public
      xmlDoc         : IXMLDocument;
      RootElement    : IXMLElement;

      LangDir        : String;
      LangFile       : String;
      Language       : Boolean;

      constructor Create(Directory : String); //(Owner: TObject);

      function GetUserLanguageID  : Integer;        // Benutzer Sprache für Menüs etc.
      function GetSystemLanguageID : Integer;        // Install Sprache

      // übersetzt ein komplettes Formular
      procedure TranslateForm      (Form : TForm);
      // übersetzt eine Caption bzw. einen Text
      procedure TranslateText      (Component, Prop : String);
 
      function TransString  (Identifier, Default : String) : String;
      function TransMultiLine(Identifier, Default : String) : String;   // CData für mehrzeilige Sachen

      procedure ReadForm           (Form : TForm);
    private
      // Sucht eine Komponente auf einer Form
      function FindComponentEx(const Name: string): TComponent;
    protected

    end;

implementation
...
Soweit ... Nun habe ich da zwei DLL Aufrufe die ich bräuchte:
Delphi-Quellcode:
{$EXTERNALSYM GetSystemDefaultUILanguage}
function GetSystemDefaultUILanguage: LANGID; stdcall;

{$EXTERNALSYM GetUserDefaultUILanguage}
function GetUserDefaultUILanguage: LANGID; stdcall;
Wenn ich das aber über implementation einfüge bekomme ich:
[DCC Fehler] Transe.pas(48): E2065 Ungenügende Forward- oder External-Deklaration: 'GetSystemDefaultUILanguage'

Wo ist denn da gerade mein Denk- / Tipp-fehler?


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz