Category: Windows
Title: Show the format dialog
Date added: 15.03.2006
Hits: 1441
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;