ToFu Beispiel

Besten Danke für deinen Tip, funktioniert prima und hat mir geholfen

--
mfg
K.L.Pfeifer
http://members.kabsi.at/kl.pfeifer/


"Dietmar Zucker" <dietmar.zucker@epost.de> schrieb im Newsbeitrag
news:9egs94$pa7$04$1@news.t-online.com...
> Hi,
>
> "K.L.Pfeifer" <kl.pfeifer@kabsi.at> schrieb im Newsbeitrag
> news:990637353.580294@newsmaster-04.atnet.at...
>
> > ich versuche verzweifelt in Delphi 6 den Benutzernamen, Hostnamen und
> > IP-Adresse auszulsen um diese Informationen für Datenbankupdates
> > mitzuprotokollieren. Betriebssystem W98 und NT 4.0.
> > Gibt es da eine Möglichkeit ???
>
> Hostname ermitteln:
> -------------------
>
> function ComputerName: string;
> var
>   Buffer: PChar;
>   Size:   DWORD;
> begin
>   Size := MAX_COMPUTERNAME_LENGTH+1;
>   Buffer := StrAlloc(Size);
>   GetComputerName(Buffer,Size);
>   Result := StrPas(Buffer);
>   StrDispose(Buffer);
> end;
>
> Benutzername ermitteln:
> -----------------------
>
> function UserName: string;
> var
>   Buffer: PChar;
>   Size:   DWORD;
> begin
>   Size := 256;
>   Buffer := StrAlloc(Size);
>   GetUserName(Buffer,Size);
>   Result := StrPas(Buffer);
>   StrDispose(Buffer);
> end;
>
> mfg
> Dietmar
> --
> http://home.t-online.de/home/dietmar.zucker
>
>