fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

Function LoggedUser() As String

Uploader:	ytwinky
Datum/Zeit:	17.08.2007 21:33:56

'Getestet mit FB 0.18 für Windows, CVS (18.05.2007) von Sebastian

'http://www.freebasic-portal.de/index.php?s=code&id=3

'ytwinky-version: als String-Function..

#include "windows.bi"

Declare Function LoggedUser() As String

Function LoggedUser() As String

  Static As Integer PufferLaenge=255 'wievisl speicher soll's denn sein?

  Dim UserPtr As ZString Ptr=Allocate(PufferLaenge) 'Bereich deklarieren und reservieren

  Function=*IIF(GetUserName(UserPtr, @PufferLaenge), UserPtr, @"*Fehler*")'Wichtig: nicht Return!!

  Deallocate UserPtr '..wir müssen ja erst noch den Platz freigeben..

End Function



? !"Angemeldeter Benutzer: \34" &LoggedUser() &!"\34";

Sleep: End

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.