uses shellapi; 
 
function bereinigen(lw: char): boolean; 
begin 
  result := shellexecute(0, 'open', 'cleanmgr', pchar('/d ' + lw + ':'), 
    nil, SW_SHOWNORMAL) > 32; 
end; 
 
// Beispielaufruf 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  if not bereinigen('C') then showmessage('Fehler'); 
end;