Hallo,
hat jemand schnell einen Code um den Benutzernamen (wie man ihn bei der Windowsinstallation eingibt) abzufragen und ihn unter Delphi 2 Developer in einer Stringvariablen zu speichern?
Vielen Dank für Antworten schon mal im Vorraus
pshuber
Borlander 
pshuber „Benutzernamen in Delphi abfragen“
pshuber Borlander „function GetUserName: String var Buffer: Array 0..MAX_COMPUTERNAME_LENGTH 1 of...“
Thanks.
pshuber Nachtrag zu: „Benutzernamen in Delphi abfragen“
Code hat bei mir nicht funktioniert, aber etwas Suche in der Registry hat auch geholfen:
procedure Tfrm_step3.Button1Click(Sender: TObject);
var
Reg: TRegistry;
username: string;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\MS Setup (ACME)\User Info', True);
username := Reg.ReadString('DefName');
end;
Borlander pshuber „Code hat bei mir nicht funktioniert, aber etwas Suche in der Registry hat auch...“
Der Registry Schlüssel ist bei mir unter W2K nicht vorhanden, würde also von dieser Lösung abstand nehmen - ich probiere meine Lösung noch mal aus...
Borlander Nachtrag zu: „Der Registry Schlüssel ist bei mir unter W2K nicht vorhanden, würde also von...“
Also bei mir funktioniert die Function einwandfrei...
Das Du die Funktion noch aufrufen musst ist Dir hoffentlich klar? Also z.B.:
ShowMessage(GetUserName());
oder
UserName = GetUserName();
Welche Feheler werden ansonsten beim Compilieren ausgegeben?
CU Borlaner
pshuber Nachtrag zu: „Benutzernamen in Delphi abfragen“
>Das Du die Funktion noch aufrufen musst ist Dir hoffentlich klar? Also z.B.:
Ja.
> Welche Feheler werden ansonsten beim Compilieren ausgegeben?
Nicht genügend wirkliche Parameter.
