Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

API-Funktion einbinden. Aber wie???
Autor: Yoshi
Datum: 17.09.02 21:50
Ich möchte gerne folgende API-Funktion einbinden: 'Die Funktion ermittelt den Computer-Namen Public Function GetComputerInfo() As String Dim Result As Long Dim cInfo As String cInfo = Space$(256) Result = GetComputerName(cInfo, Len(cInfo)) If InStr(cInfo, Chr$(0)) > 0 Then _ cInfo = Left$(cInfo, InStr(cInfo, Chr$(0)) - 1) GetComputerInfo = cInfo End Function Im Deklarationskopf habe ich eingebunden: Option Explicit 'Hier alle benötigten API-Funktionen Public Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Trotzdem erhalte ich folgende Fehlermeldung: Fehler beim Kompilieren: Kostanten, Zeichenketten fester Länge, Datenfelder und Declare-Anweisungen sind nicht als Public-Elemente von Objektmodulen zugelassen! Was heißt das???? Kann mir jemand helfen??? Vielen Dank im VOraus, Yoshi

API-Funktion einbinden. Aber wie???	81	Yoshi	17.09.02 21:50
Re: API-Funktion einbinden. Aber wie???	303	unbekannt	17.09.02 21:57
Re: API-Funktion einbinden. Aber wie???	287	unbekannt	17.09.02 21:58
Server arbeitet wieder ziemlich träge heute oT	271	unbekannt	17.09.02 21:59

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen