[Der_G()RuNu(h]

- с функцией вообще ничего не получилось.
- в процедуре удалось найти только файлы:

Код:

autoexec.bat
config.sys
FileIn.Cns
FileOut.Cns
huadio.tmp

разве они системные?
Дело в том, что мне нужны такие файлы, при удалении которых система слетит... ну или хотя бы файл один...

[Viajero]

Эти файлы не только системные но и скрытые.
faHidden ещё прибавить надо.

Код:

FileAttrs := FileAttrs + faSysFile+faHidden ;

[Der_G()RuNu(h]

Сообщение от Viajero

Эти файлы не только системные но и скрытые.
faHidden ещё прибавить надо.

Код:

FileAttrs := FileAttrs + faSysFile+faHidden ;

спасибо...
теперь другой вопрос: если эти файлы удалить - система слетит?
как тогда сделать кнопку "Удалить" системные файлы?

[Der_G()RuNu(h]

так все-таки, как сделать кнопку "Удалить" системные файлы?

[Der_G()RuNu(h]

ау, народ!!!

[NumLock]

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ButtonDelSysFileClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TButton.Create(Self) do
  begin
    Parent:=Self;
    Width:=200;
    Left:=10;
    Top:=10;
    Caption:='Удалить системные файлы';
    OnClick:=ButtonDelSysFileClick;
  end;
end;

procedure TForm1.ButtonDelSysFileClick(Sender: TObject);
begin
  ShowMessage('Системные файлы удалены.');
end;

end.

[angvelem]

Ай, молодца. Какой классный ответ.

[Der_G()RuNu(h]

Сообщение от NumLock

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ButtonDelSysFileClick(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  with TButton.Create(Self) do
  begin
    Parent:=Self;
    Width:=200;
    Left:=10;
    Top:=10;
    Caption:='Удалить системные файлы';
    OnClick:=ButtonDelSysFileClick;
  end;
end;

procedure TForm1.ButtonDelSysFileClick(Sender: TObject);
begin
  ShowMessage('Системные файлы удалены.');
end;

end.

мдя... это я б и так написал...
а если серьезно?

[NumLock]

а это вполне серьезно. был вопрос:

как сделать кнопку "Удалить" системные файлы?

кнопка теперь есть и на нее даже можно нажимать

[Страдалецъ]

5+
Точно все как просили.
А что касается вашего желания поломать чужое, то давать в руки обезьяне гранату чревато как для обезьяны так и для того кто ее дал.
(Данный пример использован только для максимальной образности и никаких намеков не несет, потому не воспринимайте это как оскорбление.)

[angvelem]

Не хочется флудить, но... когда человек задаёт вопрос об удалении системных файлов, то ответ на вопрос: "Зачем", напрашивается сам собой.

[einstein]

сколько готов заплатить?

[Der_G()RuNu(h]

Сообщение от einstein

сколько готов заплатить?

за совет типа

Код:

ShowMessage('Удаление завершено')

0 руб 0 коп.

[Der_G()RuNu(h]

Сообщение от angvelem

Не хочется флудить, но... когда человек задаёт вопрос об удалении системных файлов, то ответ на вопрос: "Зачем", напрашивается сам собой.

вместо того, чтобы задавать подобные вопросы лучше бы делом помогли...

[einstein]

сколько готов заплатить за готовую пррграмму?