Как сделать программу имитирующую форматирование диска С:/)*
\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
     Ниже указан полный работоспособный проект прграммы Format.pas
------------------------------------------------------------------------------------------------------------------------------------------
unit Format;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox2: TGroupBox;
    Label2: TLabel;
    Edit1: TEdit;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    ProgressBar1: TProgressBar;
    Label3: TLabel;
    Timer1: TTimer;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Timer2: TTimer;
    Label8: TLabel;
    Edit2: TEdit;
    Label7: TLabel;
    Label9: TLabel;
    procedure Timer1Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Label7Click(Sender: TObject);
    procedure Label9Click(Sender: TObject);
    {procedure Timer2Timer(Sender: TObject);}
  private
    { Private declarations }
    a:integer;
    tic:Longint;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit2, Unit3, Unit4;

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
a:=a+1;
ProgressBar1.Position:=a;
If a=30 Then Begin
Label3.Caption := 'Создание файловой системы...';
end;
If a=5 Then Begin
ShowMessage ('ВНИМАНИЕ!!! При форматирование все данные с жесткого диска будут утеряны')
end;
If a=90 Then Begin
Label3.Caption := 'Запись метки тома...';
end;
If a=105 Then Begin
Form2.Visible := True;
Button1.Enabled := True;
end;
If a=115 Then Begin
Form3.Visible := True;
end;
If a=300 Then Begin
Close();
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage ('Возможно рабочая папка Windows была перемещена или переименована')
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
ShowMessage ('Невозможно остановить форматирование')
end;

procedure TForm1.Label4Click(Sender: TObject);
begin
Close();
end;

procedure TForm1.Label6Click(Sender: TObject);
begin
a := 95;
tic := 95;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
a := 0;
tic := 0;
Button1.Enabled:=false;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
 s:String;
 sec:Real;
begin
 tic:=tic+1;
 sec:=tic/1;
 str (sec:1:0, s);
 edit2.text := s;
end;

procedure TForm1.Label7Click(Sender: TObject);
begin
 If Edit2.Visible = false then begin
  Edit2.Visible := true;
  Label8.Visible := true;
 end
  else begin
   Edit2.Visible := false;
   Label8.Visible := false;
  end;
end;

procedure TForm1.Label9Click(Sender: TObject);
begin
Form4.visible:=true;
end;

end.
-----------------------------------------------------------------------------------------------------------------------------
)* - Эта программа уже сделана мной, и вы можете подгрузить её саму и
её проект на моём сайте по адресу:
http://www.kudruavtsev.narod.ru/del.html

Автор программы, идеи и текста: Кудрявцев Юра (PAYBACK co. #2000)

Internet: http://www.kudruavtsev.narod.ru
Mail-me: backpayback_yura@mail.ru