1:
2:

  Image1.Picture.Bitmap.LoadFromFile'C:\Dokumente und Einstellungen'
  + '\All Users\Anwendungsdaten\Microsoft\User Account Pictures\' + GetUser + '.bmp'); }                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var
  x, y: integer;
  myrgb, r, g, b: integer;
begin
  image1.Picture.LoadFromFile('C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\Microsoft\User Account Pictures\' + getuser + '.bmp');
  for x := 0 to image1.Width do
    for y := 0 to image1.Height do
    begin
      myrgb := colortorgb(image1.canvas.pixels[x, y]);
      r := GetBValue(myrgb);
      g := GetRValue(myrgb);
      b := GetGValue(myrgb);
      image1.canvas.pixels[x, y] := rgb(r, g, b);
    end;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

(*Annahme: System hat NT-Kernel (NT/2kx/XP). Wenn nicht, gibt es die Variable nicht. 
 * Heist dann anders. Funktion wird erweiterbar gemacht, sollte jemand Win9x/ME haben, bitte posten.
 *)
function getPictureDir:string;
var
  isNT : boolean;
  tmp : string;
begin
  isNT := (getenv('OS') <> ''); {%OS% ist bei WinDOS nicht definiert}
  if isNT then begin
      tmp := getenv('userprofile');
      if tmp = '' 
        then tmp := 'C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\blabla' 
        else tmp := tmp + '\Anwendungsdaten\blabla';
    end else (*WinDOS. Macht, was ihr wollt. *)
  Result := tmp;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

(*Annahme: System hat NT-Kernel (NT/2kx/XP). Wenn nicht, gibt es die Variable nicht. 
 * Heist dann anders. Funktion wird erweiterbar gemacht, sollte jemand Win9x/ME haben, bitte posten.
 *)
function getPictureDir:string;
var
  isNT : boolean;
  tmp : string;

begin
  isNT := (getenv('OS') <> ''); {%OS% ist bei WinDOS nicht definiert}
  if isNT then begin
      tmp := getenv('userprofile');
      if tmp = '' 
        then if getenv('alluserprofile') = ''
           then tmp := 'C:\Dokumente und Einstellungen\All Users\Anwendungsdaten\blabla'
           else tmp := getenv('alluserprofile') + '\Anwendungsdaten\blabla'
        else tmp := tmp + '\Anwendungsdaten\blabla';
    end else (*WinDOS. Macht, was ihr wollt. *)
  Result := tmp;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

function GetEnv(Variable:string):string;
var buffer:array[1..1024] of char;
begin
if GetEnvironmentVariable( pChar(variable) , @Buffer, Sizeof(buffer) )=0 then
result:=''
else
result:=buffer;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:

implementation

{$R *.dfm}

uses
  ShlObj;

function TForm1.CommonDataPath: string;
const
  CSIDL_COMMON_APPDATA  = $0023; // All Users\Application Data
var
  Path: array [0..1024] of char;
begin
  if SHGetSpecialFolderPath(Handle, Path, CSIDL_COMMON_APPDATA, TRUE)
    then Result := String(path)
    else Result := '';
end;

function TForm1.GetCurrentUserName: String;
var
  pcUserName : pChar; // temporary storage
  dwMaxChars : dWord; // length parameter
const
  MAXCHARS = 255;  // max length
begin
  dwMaxChars := MAXCHARS;
  GetMem(pcUserName, MAXCHARS + 1);
  if GetUserName(pcUserName, dwMaxChars)
    then Result := String(pcUserName)
    else Result := '';
  FreeMem(pcUserName);
end;

procedure TForm1.FormCreate(Sender: TObject);
var LgPath: String;
begin
  Label1.Caption := GetCurrentUserName;

  LgPath := CommonDataPath + '\Microsoft\User Account Pictures\' +
            Label1.Caption + '.bmp';

  if FileExists(LgPath) then
  begin
    Image1.Picture.Bitmap.Handle :=
      LoadImage(0, PChar(LgPath), IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE);
  end else
    ShowMessage(format('%s'#13#10'"%s"', ['Datei nicht gefunden:', LgPath]));
end;