Show the dialog to format a drive  

Send By: Q3 Team
Web : www.q3.nu
Email: dlib@q3.nu
Date: 08/09/99

Tip accessed 460 times

 


  • Add 'ShellApi' in the uses of your form
  • and execute this code:


     	procedure TForm1.Button1Click(Sender: TObject);
     	begin
     	  ShellExecute(Application.Handle,
     	               Pchar('Open'),
     	               Pchar('C:\Windows\Rundll32.exe'),
     	               Pchar('Shell32.dll,SHFormatDrive'),
     	               Pchar('C:\Windows'),
     	               SW_SHOWNORMAL);
     	end;