Delphi - konsola systemu [Start > Uruchom]

[Piterniel]

Witam serdecznie potrzebuje jakiejś komendy aby odpalić dowolną procedure ze Start > Uruchom w Delphi.

Chodzi mi dokładniej o

defrag c: -b
DISKPERF -N
regsvr32 /u /s zipfldr.dll
RunDll32 advpack.dll,LaunchINFSection %windir%\INF\msmsgs.inf,BLC.Remove
ipconfig /flushdns
sfc /cachesize=100
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
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

Proszę o pomoc

[*Vojtas*]

Piter wiem, że dzwonią tylko nie wiem jeszcze, w którym kościele

Poszukaj na google informacji o funkcjach takich jak: ShellExecute, ShellExecuteEx oraz Interface IShellExecuteHook

pozdr.

[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

[*Vojtas*]

Wrzuciłem twój problem na jedną z grup dotyczących Delphi (często zagląda tam kilku niezłych ekspertów, jeżeli chodzi o programowanie w tym środowisku) i niestety nie ma prostej procedury czy funkcji, która rozwiąże ten problem. Ale jak to często bywa można to delikatnie obejść np.:

Program może tworzyć plik wsadowy (*.bat), w którym najpierw zapisze komendę, która ma zostać wykonana (np: del %windir%\Prefetch\ /F /S /Q) a następnie uruchomi go za pomocą funkcji ShellExecute.

pozdr.

[gallus]

Może tutaj ktoś będzie potrafił pomóc w tej sprawie...
http://forum.4programmers.net/viewtopic.php?id=74541

[Ziele]

np tak:

ShellExecute(0, 'open','cmd.exe del %windir%\Prefetch\ /F /S /Q','nil',nil,SW_SHOWNORMAL)

powinno działać

[*Vojtas*]

Napisany przez Ziele

np tak:

ShellExecute(0, 'open','cmd.exe del %windir%\Prefetch\ /F /S /Q','nil',nil,SW_SHOWNORMAL)

powinno działać

No niestety u mnie nie działa

pozdr.

[Ziele]

jutro cos pokombinuje