Title: How to show the format dialog
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;