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