Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Probleme mit "GetComputerName"
Autor: evil_uwe
Datum: 08.03.04 15:16
Hi, Du mußt die Endzeichen abschneiden, wie z.B. Private Declare Function GetComputerName Lib "kernel32" Alias _ "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Const MAX_COMPUTERNAME_LENGTH = 15 Public Function PC_Name() '** Dim strBuffer As String Dim lngResult As Long Dim nSize As Long '** strBuffer = String$(MAX_COMPUTERNAME_LENGTH + 1, 0) nSize = MAX_COMPUTERNAME_LENGTH + 1 '** lngResult = GetComputerName(strBuffer, nSize) If lngResult = 1 Then PC_Name = Left$(strBuffer, nSize) End If '** End Function

Probleme mit "GetComputerName"	620	Garfield360	08.03.04 15:01
Re: Probleme mit "GetComputerName"	361	evil_uwe	08.03.04 15:16
Re: Probleme mit "GetComputerName"	407	Garfield360	08.03.04 17:32

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