se vc quizer que ele faça sozinho à desfragmentação use isso abaixo...

winexec('c:\windows\system32\defrag c: /f /v',1);

o unico incoveniente é que abre uma janela DOS...

Luiz Escobar
Analista/Desenvolvedor:
WEB - HTML/JavaScript/PHP/MySQL 
WINDOWS - Delphi/MyDAC/ASSEMBLER/MySQL/xBase
DOS - Clipper/Assembler xBase
SERVIDORES - NetWare4.11, LINUX-REDHAT9, WINDOWS-2k
LINUX - LAZARUS/Kylix/MySQL;
http://www.megasistema.com.br


  ----- Original Message ----- 
  From: Claudiney Cogo - Listas 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 27, 2007 11:11 AM
  Subject: Re: [delphi-br] Re: chamando o desfragmentador de disco pela 
aplicação


  Experimente o seguinte:

  winexec ('mmc.exe %systemroot%\system32\dfrg.msc',1);

  Claudiney Cogo
  N2 Sistemas e Soluções em Informática Ltda.
  Av. São Paulo, 172 - 15º Andar - Sala 1505
  CEP 87013-908 - Maringá - Pr
  Tel. 44- 3222-6053
  [EMAIL PROTECTED]

  ----- Original Message ----- 
  From: Gustavo André de Freitas 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Tuesday, March 27, 2007 10:44 AM
  Subject: [delphi-br] Re: chamando o desfragmentador de disco pela aplicação

  Pessoal,

  agradeço a ajuda, consegui, vou postar o código abaixo, para quem 
  precisar também usar.

  winexec ('mmc.exe c:\windows\system32\dfrg.msc',1);

  agora minha dúvida é a seguinte:

  e se o sistema operacional estiver instalado numa partição d: ou e: 
  ou com um nome personalizado, como por exemplo, meunome: ? como faço 
  para driblar essa situação?

  --- Em delphi-br@yahoogrupos.com.br, Edu Nicácio <[EMAIL PROTECTED]> 
  escreveu
  >
  > Você poderia ter procurado nas "Opções de Pasta" do Windows. Lá, 
  além da extensão, você obtem informações do programa associado, 
  parâmetros, como abrir, imprimir, editar, etc cada arquivo no 
  computador.
  > 
  > Olha o que eu descobri:
  > 
  > ShellExecute
  (Application.Handle,'open','Caminho\do\seu\arquivo.msc',nil,nil,SW_SHO
  WNORMAL);
  > 
  > Ou então:
  > 
  > ShellExecute
  (Application.Handle,'open','mmc.exe','Caminho\do\seu\arquivo.msc',nil,
  SW_SHOWNORMAL);
  > 
  > Veja o comando para abrí-los:
  > 
  > C:\WINNT\system32\mmc.exe "%1" %*
  > 
  > Ou seja, usando Winexec(...) você não poderá abri-lo diretamente, 
  por não se tratar de um arquivo 'executável'.
  > 
  > Espero ter ajudado.
  > 
  > Abraço.
  > 
  > 
  > ----------------------------------------------------------
  ------------
  > Atenciosamente:
  > 
  > 
  > Eduardo Cláudio Nicácio
  > Analista Programador
  > Fábrica 02 - CTIS
  > Tel.: (11) 3150-6834
  > [EMAIL PROTECTED]
  > 
  > 
  > 
  > 
  > ----- Original Message ----- 
  > From: Gustavo André de Freitas 
  > To: delphi-br@yahoogrupos.com.br 
  > Sent: Monday, March 26, 2007 4:45 PM
  > Subject: [delphi-br] chamando o desfragmentador de disco pela 
  aplicação
  > 
  > 
  > Pessoal,
  > 
  > estou tentando chamar o desfragmentador de disco de dentro da 
  aplicação 
  > delphi, mas não estou conseguindo, estou usando o seguinte codigo.
  > 
  > WinExec ('c:\windows\system32\dfrg.msc', 1);
  > 
  > não abre de forma alguma, na verdade, nenhum arquivo com 
  extensão .msc 
  > consigo abrir com o comando WinExec, tem algum outro comando...?
  > 
  > procurei o final de semana todo na net e não encontrei nenhum 
  codigo 
  > neste sentido...aguardo ajuda dos amigos!
  > 
  > 
  > 
  > 
  > 
  > [As partes desta mensagem que não continham texto foram removidas]
  >

  [As partes desta mensagem que não continham texto foram removidas]



   

[As partes desta mensagem que não continham texto foram removidas]

Responder a