uses
  ShellAPI;

function InstallScreenSaver(const AFileName: string): Boolean;
begin
  Result := ShellExecute(0, 'install', PChar(AFileName), nil, nil,
    SW_SHOWNORMAL) > 32;
end;