TurboPascal Windows Benutzernamen anzeigen

[TUX_der_Pinguin]

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

[Luckie]

Keine Ahnung, wo der Code den Computernamen herholt, scheint aber mehr als abenteuerlich zu sein die Methode. Für beides gibt es API-Funktionen:

Delphi-Quellcode:

function GetCurrentUserW: WideString;
var
  Size              : DWORD;
begin
  Size := MAX_COMPUTERNAME_LENGTH * 2 + 1;
  SetLength(Result, Size);
  if GetUserNameW(PWideChar(Result), Size) then
    SetLength(Result, Size)
  else
    Result := '';
end;

Und eine Forensuche hätte dir auch schon die Antwort gegeben. Das nächste mal bitte erst suchen.

[sakura]

Zitat:

Zitat von Luckie

Für beides gibt es API-Funktionen:

Windows API-Funktionen in einem DOS-Programm? :gruebel:

Turbo Pascal 7 ist nicht Windows ;)

@TUX_der_Pinguin: Schau die mal die Umgebungsvariabeln an, die sollte man auf unter DOS ermitteln können. In USERNAME steht dann eigentlich auch der selbige drinne.

...:cat:...

[Luckie]

Gut, er sprach zwar von Turbo Pascal 7 aber eben auch von Windows 98 und Windows XP, daher bin ich davon ausgegangen, es ginge im die Windows Benutzernamen in einem Programm, das unter Windows läuft.

[TUX_der_Pinguin]

Ja es geht um den Windows Benutzernamen in einem quasi Dos Programm welches in TurboPascal geschrieben ist.
Daher sind Windows API Funtkionen von Delphi nicht verfügbar.

An die Umgebungsvariablen habe ich auch gedacht nur gibt es 'USERNAME' unter WinXP aber nicht unter Win9x.
Daher auch keine Lösung.

[Luckie]

Zitat:

Zitat von TUX_der_Pinguin

Daher sind Windows API Funtkionen von Delphi nicht verfügbar.

Abgesehen mal davon dass diese Aussage keinen Sinn ergibt, kann man sich die Windows-API Funktionen auch selber Importieren. (Einfach aus der Windows.pas rauskopieren.)

[TUX_der_Pinguin]

Also ich wüßte nicht wie ich in einem TurboPascal Programm Windows API Funktionen rein bekomme.

[Luckie]

Was ist denn eigentlich ein "quasi" DOS-Programm? Entweder Schwanger oder nicht, "quasi" schwanger gibt es nicht. :?

[TUX_der_Pinguin]

Ich wollte damit ausdrücken das es ein DOS Programm ist welches unter Windows läuft,
aber diese ganze diskussion bringt mir nix, ich würde gern mit dem Problem weiter
kommen den Benutzernamen von einem Windows PC in einem DOS Programm anzuzeigen.

[Bernhard Geyer]

Ist es wirklich ein DOS-Programm oder ein Consolen-Programm?

Für ein DOS-Programm kannst du die Umgebungsvariable USERNAME abfragen, für ein Consolen-Programm ist Luckie-Lösung zu empfehlen.