[Piterniel]

Z tym sobie poradziłem

RunDll32 advpack.dll,LaunchINFSection %windir%\INF\accessor.inf,MousePointUninstall
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\pinball.inf,PINBALL.Remove
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\igames.inf,ZoneUninstall
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\games.inf,MinesweeperUninstall
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\games.inf,FreecellUninstall
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\games.inf,SolitaireUninstall
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\games.inf,SpiderUninstall
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\games.inf,HeartsUninstall
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\communic.inf,ChatUninstall
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\msmsgs.inf,BLC.Remove

Tak o

begin
ShellExecute(Handle, 'open','rundll32','advpack.dll,LaunchINFSection C:\Windows\INF\communic.inf,Chatinstall',nil,SW_SHOWNORMAL);
ShellExecute(Handle, 'open','rundll32','advpack.dll,LaunchINFSection C:\Windows\INF\accessor.inf,MousePointUninstall',nil,SW_SHOWNORMAL);
ShellExecute(Handle, 'open','rundll32','advpack.dll,LaunchINFSection C:\Windows\INF\pinball.inf,PINBALL.Remove',nil,SW_SHOWNORMAL);
ShellExecute(Handle, 'open','rundll32','advpack.dll,LaunchINFSection C:\Windows\INF\igames.inf,ZoneUninstall',nil,SW_SHOWNORMAL);
ShellExecute(Handle, 'open','rundll32','advpack.dll,LaunchINFSection C:\Windows\INF\games.inf,MinesweeperUninstall',nil,SW_SHOWNORMAL);
ShellExecute(Handle, 'open','rundll32','advpack.dll,LaunchINFSection C:\Windows\INF\games.inf,FreecellUninstall',nil,SW_SHOWNORMAL);
ShellExecute(Handle, 'open','rundll32','advpack.dll,LaunchINFSection C:\Windows\INF\games.inf,SpiderUninstall',nil,SW_SHOWNORMAL);
ShellExecute(Handle, 'open','rundll32','advpack.dll,LaunchINFSection C:\Windows\INF\msmsgs.inf,BLC.Remove',nil,SW_SHOWNORMAL);
ShellExecute(Handle, 'open','rundll32','advpack.dll,LaunchINFSection C:\Windows\INF\games.inf,HeartsUninstall',nil,SW_SHOWNORMAL);
end;

Tylko nadal nie wiem jak reszte :/

EDIT :
Poradziłem sobie jednak
Ale mam problem

begin
ShellExecute(Handle, 'open','defrag.exe','C: -b',nil,SW_SHOWNORMAL);
ShowMessage('Pliki systemowe zostały zdefragmentowane!');
end;

Co zrobić aby ta wiadomośc się pokazała dopiero po wykoanaiu tego wyżej ?

Edit II

Problem rozwiązany - dzieki Ziele!
A teraz tylko zostało

del %windir%\Prefetch\ /F /S /Q
del %windir%\TEMP\ /F /S /Q
del %windir%\HELP\*.* /F /S /Q
del %windir%\Media\*.* /F /S /Q
del %windir%\system32\dllcache\*.* /F /S /Q
del %windir%\Driver Cache\i386\*.* /F /S /Q