Mega Code Archive

 

Categories / Delphi / System

 

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;