Rotina para formatar disquete
Caros amigos em um programa do Delphi 3 tenho a seguinte rotina:
procedure TF_Menu.SpeedButton5Click(Sender: TObject);
begin
ShellExecute(Application.Handle,Pchar(´Open´),Pchar(´C:\Windows\Rundll32.exe´),Pchar(´Shell32.dll,SHFormatDrive´),Pchar(´C:\Windows´),SW_SHOWNORMAL);
end;
Estou tentando usar a mesma no Delphi 7 mas não dá certo.
Alguem pode me ajudar?
Rony Lee.
procedure TF_Menu.SpeedButton5Click(Sender: TObject);
begin
ShellExecute(Application.Handle,Pchar(´Open´),Pchar(´C:\Windows\Rundll32.exe´),Pchar(´Shell32.dll,SHFormatDrive´),Pchar(´C:\Windows´),SW_SHOWNORMAL);
end;
Estou tentando usar a mesma no Delphi 7 mas não dá certo.
Alguem pode me ajudar?
Rony Lee.
Ronylee
Curtidas 0
Respostas
Beppe
30/03/2004
Acho que naum é problema no Delphi, mas com o windows...no xp rundll está em windows\system. Corrija o caminho.
GOSTEI 0
Ronylee
30/03/2004
Na verdade o caminho é windows\system32.
Estou desenvolvendo em XP mas o programa vai rodar em win98, tem alguma sugestão de como posso resolver isso?
Agradeço desde já qualquer ajuda.
Rony Lee
Estou desenvolvendo em XP mas o programa vai rodar em win98, tem alguma sugestão de como posso resolver isso?
Agradeço desde já qualquer ajuda.
Rony Lee
GOSTEI 0
Beppe
30/03/2004
E no w98 naum funciona?
GOSTEI 0
Ronylee
30/03/2004
Naum testei no win98, mas se o caminho é diferente, acredito que não vai funcionar.
Rony Lee.
Rony Lee.
GOSTEI 0