Ejecutar el defragmentador desde Delphi
 

Saludos.

Necesito ejecutar el defragmentador de windows desde delphi.

Estoy utilizando este código pero nada de nada...

WinExec(PChar('C:\Windows\System32\Dfrg.msc'),SW_SHOWNORMAL);

Los programas con extension EXE los ejecuta todos, pero por el contrario si se utiliza programas con extension MSC, pues no.

Alguien me podría aclarar porqué.

Gracias.

Para eso tendrías que asegurarte que el directorio de Windows es C:\Windows\. Por ejemplo, en Win2000 se llama WINNT y yo he tenido el sistema instalado en la unidad H:

Hay una función, GetSystemDir o algo así, pero creo que lo mejor es esto:

Código Delphi [-]
ShellExecute(Handle, 'open', 'dfrg.msc', nil, nil, SW_MAXIMIZE);

Salu2 :)

Te referes a mi codigo ixMike¿? pues deberia funcionar en cualquier instalación porque mmc.exe es un utilitario hubicado en %SystemRoot%\system32, y dicha ruta está en la variable de entorno PATH que es utilizada por WinExec.

En todo caso ambas alternativas funcionan.

Saludos

Es en general, pero... después has escrito "c:\windows\system32\dfrg.msc", y ahí sí aparece "C:\Windows\". En todo caso (para evitar errores y añadir ShellApi), sería:

Código Delphi [-]
WinExec('mmc %systemroot%\system32\dfrg.msc', SW_SHOWNORMAL);

Ale, ya :D;)

Perfecto.

Gracias cHackAll.

Perdón IxMike, Gracias a tí tambien.

Funciona a la perfección.