Ich merk schon, es liegt wohl doch nicht an mir sondern irgendwie an Delphi...
Danke für alle eure Vorschläge, leider funktionier jedoch keiner davon :/
Wie immer fehlt das letze Hochkomma... Oo
Hier mal ein größerer Ausschnitt, vielleicht leigt der Fehler ja woanders:
Die funktion hier hab ich hier aus dem Forum kopiert...
Code:
function TfrmMain.getCurrentUserName(): string;
const
cnMaxUserNameLen = 254;
var
sUserName: string;
dwUserNameLen: DWORD;
begin
dwUserNameLen := cnMaxUserNameLen - 1;
SetLength(sUserName, cnMaxUserNameLen);
GetUserName(PChar(sUserName), dwUserNameLen);
SetLength(sUserName, dwUserNameLen);
Result := sUserName;
end;
Code:
userName := getCurrentUserName;
ShowMessage('benutzer = '''+userName+'''');