Hallo,
es geht um Turbo Pascal 7, ich habe hier Beispiel Code mit dem ich den Computernamen eines Rechners ermitteln kann,
egal ob
Win9x oder WinXP, jedoch würde ich gerne den Benutzernamen angezeigt bekommen und nicht den Computernamen.
Hat jemand eine idee wie man das hinbekommt !?
Code:
Function Netz_Name : String;
Var
Register : Registers;
Puffer : Array[1..15] Of Char;
Temp : String[15];
Index : Byte;
Begin
Temp := '';
With Register Do Begin
AH:= $5e;
AL:= $0;
DX := Ofs(Puffer);
DS := Seg(Puffer);
Intr($21,Register);
If CH = 1 Then Begin
For Index := 1 to 15 Do Temp := Temp + Puffer[Index];
Temp := FCutBlankVH(Temp);
Temp := UpString(Temp);
End;{if}
End;{with}
Netz_Name := Temp;
End;{Function Netz_Name}
mfg
TUX