Einzelnen Beitrag anzeigen

-Phantom-

Registriert seit: 26. Nov 2009
Ort: Bockhorst
319 Beiträge
 
Delphi 7 Enterprise
 
#3

Re: 'C:\Users\'+ Benutzername'\neu\ddd.txt' geht nicht

  Alt 23. Dez 2009, 02:28
Ne also das mit dem Benutzernamen hab ich hin bekommen dazu braucht man die Funktion:
Delphi-Quellcode:
function GetUsername: string;
var
  Buffer: array[0..255] of Char;
  Size: DWord;
begin
  Size := SizeOf(Buffer);
  if not Windows.GetUserName(Buffer, Size) then
    RaiseLastOSError;
  SetString(Result, Buffer, Size - 1);
end;
als test hab ich auch gemacht label1.caption := Benutzernamen und dann kam da auch mein Benutzername!
Ich will ja nur wissen wie ich Benutzername richtig in diesen Pfad einbinde! mehr will ich gar nicht.
Und ich will ja nicht wissen wo irgend welche Ordner sind !
Mathias Jansen
  Mit Zitat antworten Zitat