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

function bild_wechsel(dateiname:STRING):BOOLEAN; 
BEGIN 
   if NOT SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, Pointer (dateiname), SPIF_SENDWININICHANGE) 
    then begin 
     Result:=false; 
    end ELSE 
    BEGIN 
     Result := true; 
    END; 
end;                    

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

function test1(var test:String);
begin
    // Deine Anweisungen
end;

//Aufruf der Funktion
test1('Test');                    

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

function test2(var zahl1,zahl2:Integer):Integer
begin
   result := zahl1 + zahl2;
end;

// Aufruf der Funktion
Label1.Caption := IntToStr(test2(5,5));                    

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

function test1(var test:String); 
begin 
    // Deine Anweisungen 
end; 

//Aufruf der Funktion 
test1('Test');                    

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject);
begin
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar('c:\100.bmp'), SPIF_SENDWININICHANGE)
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:

procedure TForm1.SetWallpaperSystem(sWallpaper: String; bTile, bStrech: Boolean);
var 
  Reg : TRegIniFile;
begin 
  Reg := TRegIniFile.Create('Control Panel\Desktop');
  with Reg do 
  begin 
    WriteString('', 'Wallpaper', sWallpaper); 

    if bTile then WriteString('', 'TileWallpaper', '1') 
             else WriteString('', 'TileWallpaper', '0');
    if bStrech then WriteString('', 'WallpaperStyle', '2') 
               else WriteString('', 'WallpaperStyle', '0'); 
  end; 
  Reg.Free; 

  //Aktualisiert das Hintergrundbild 
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE); 

  Application.ProcessMessages; 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
   Wall: string;
begin
     Wall:= 'C:\0.BMP';
     SetWallpaperSystem(Wall, False, False);
end;                    

1:
2:
3:
4:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, PChar('c:\100.bmp'), SPIF_SENDWININICHANGE) 
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.UebernameClick(Sender: TObject);
var
  FileSave : String;
  Reg : TRegIniFile;
begin
  Reg := TRegIniFile.Create('Control Panel\Desktop'); 
  FileSave := 'C:\Windows\HBLosung.bmp';
  Hgbild.Picture.SaveToFile(FileSave);
  Reg.WriteString('', 'Wallpaper', FileSave);
  SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDWININICHANGE)
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:

uses
  ComObj,  // For CreateComObject and Initialization/Finalization of COM
  ShlObj;  // For IActiveDesktop

{  The CLASS ID for ActiveDesktop is not defined in
   ShlObj, while the IID is so we define it here. }
const
  CLSID_ActiveDesktop: TGUID = '{75048700-EF1F-11D0-9888-006097DEACF9}';


procedure ChangeWallPaper(const aBildname:String);
var wStr:PWideChar;
    aDesk:IActiveDesktop;
begin
  wStr:=AllocMem(MAX_PATH*2);
  try
    StringToWideChar(aBildName, wStr, MAX_PATH*2);
    aDesk:=CreateComObject(CLSID_ActiveDesktop) as IActiveDesktop;
    aDesk.SetWallpaper(wStr, 0);
    aDesk.ApplyChanges(AD_APPLY_ALL or AD_APPLY_FORCE);
  finally
    FreeMem(wStr);
  end; // try
end; // ChangeWallPaper