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;