Forum CDRinfo.pl - Delphi - konsola systemu [Start

Forum CDRinfo.pl (https://forum.cdrinfo.pl/)

- Off topic (https://forum.cdrinfo.pl/f5/)

- - Delphi - konsola systemu [Start > Uruchom] (https://forum.cdrinfo.pl/f5/delphi-konsola-systemu-start-uruchom-53964/)

jutro cos pokombinuje

Cytat:

Napisany przez Ziele

np tak:

Kod:

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 :nie:

pozdr.

np tak:

Kod:

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

powinno działać

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

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.

Z tym sobie poradziłem

Kod:

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 :)

Kod:

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

Kod:

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 :P

Kod:

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

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.

Delphi - konsola systemu [Start > Uruchom]

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

Chodzi mi dokładniej o

Kod:

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 ;)