![]() |
API in Unit nutzen?
Moin !
Ich habe eine Unit in der ich eine Klasse definiert habe:
Delphi-Quellcode:
Soweit ... Nun habe ich da zwei DLL Aufrufe die ich bräuchte:
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 ...
Delphi-Quellcode:
Wenn ich das aber über implementation einfüge bekomme ich:
{$EXTERNALSYM GetSystemDefaultUILanguage}
function GetSystemDefaultUILanguage: LANGID; stdcall; {$EXTERNALSYM GetUserDefaultUILanguage} function GetUserDefaultUILanguage: LANGID; stdcall; [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 01:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz