Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

API-Funktion
Autor: Morpheus
Datum: 25.11.02 23:27
Ich arbeitet das erste mal mit einer API-Anwendung. Ich möchte folgenden Code einfügen: 'Hier die benötigten API-Deklarationen Declare Function GetComputerName Lib "kernel32" _ Alias "GetComputerNameA" (ByVal lpBuffer As String, _ nSize As Long) As Long '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 Jedoch bekomme ich immer die Fehlermeldung, dass Declare-Anweisungen als öffentliche Mitglieder von Objektmodulen nicht zugelassen sind. Was kann ich dagegen tun?

API-Funktion	288	Morpheus	25.11.02 23:27
Re: API-Funktion	177	unbekannt	25.11.02 23:34

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