Mega Code Archive

 

Categories / Delphi / Forms

 

How to show the format dialog

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;