uses shellapi; 
 
procedure StartSchoner; overload; 
begin 
  sendmessage(application.handle, WM_SYSCOMMAND, SC_SCREENSAVE, 0); 
end; 
 
procedure StartSchoner(s: string); overload; 
begin 
  shellexecute(application.handle, 'open', pchar(s), nil, nil, 0); 
end; 
 
 
// --- Beispielaufrufe --- 
 
// den aktuellen Bildschirmschoner starten. Voraussetzung ist,
// dass im System auch ein Schirmschoner eingestellt ist.
// siehe dazu: den Bildschirmschonerwert abfragen 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  startschoner; 
end; 
 
// einen bestimmten Bildschirmschoner starten 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  startschoner('Flying Windows.scr'); 
end;