Файловый манагер

[Гость]

Всем привет!

Ребята,на сколько мне помниться на пд около 50% программистов,так вот...не могли бы вы мне помочь с одним вопросом,пишу файловый менеджер в компиляторе Borland Delphi 7, использую компонент shelllistview, КАК УДАЛИТЬ ВЫДЕЛЕННЫЙ ФАЙЛ ИЛИ ПАПКУ ????

я уже все перепробовал,в инете нигде не могу найти пример удаления,подскажите плз 

[IIcuxoIIaD]

первый

 

и не программист офк

 

[Гость]

первый

 

и не программист офк

 

тогда беги отсюда сынок

[Гость]

нуууу... помогите....

[Гость]

ой ну и хер с вами.... сам уже придумал

 

 

procedure TForm1.Button3Click(Sender: TObject);

var s:string;

begin

if (ShellListView1.ItemIndex>-1) then

    begin

      S:=ShellListView1.Folders[shellListView1.ItemIndex].PathName;

      if (FileExists(S)) then

        if Application.MessageBox('Âû äåéñòâèòåëüíî õîòèòå óäàëèòü äàííûé ôàéë?',

                                  'Ïîäòâåðæäåíèå óäàëåíèÿ ôàéëà',

                                  MB_YESNO+MB_ICONQUESTION)=idYes then

          DeleteFile(S);

          ShellListView1.Refresh;

 

    end;

end;

[3xac7]

мем форевер алоун охота вставить...

[Гость]

тааааак теперь возник вопрос а папку как удалить????

[Kaizer Soze]

Молодец

[Гость]

Создай тему на пд,реши проблему сам.

[Kant]

mov ah, 3Ah

lea dx, filename

int 21h

[Гость]

mov ah, 3Ah

lea dx, filename

int 21h

вообще пздц как разрулил

[balboa]

скачай TotalCommander

[Гость]

скачай TotalCommander

да ладноооо.....

вот я дурак не додумался скачать тотал командер

 

дурак мне свой фм нужно написать

 

[AVTORKLIF]

На Дэлфи еще мой прадед писал Пиздец, неужели у пд проще спросить, чем гуглом воспользоваться? :po_weke:

[Гость]

На Дэлфи еще мой прадед писал Пиздец, неужели у пд проще спросить, чем гуглом воспользоваться? :po_weke:

понимаешь... пд это то место куда я обратился после того как воспользовался гуглом,так что НЕ УЧИ ОТЦА ЕБАТЬСЯ

окда?

[AVTORKLIF]

На Дэлфи еще мой прадед писал Пиздец, неужели у пд проще спросить, чем гуглом воспользоваться? :po_weke:

понимаешь... пд это то место куда я обратился после того как воспользовался гуглом,так что НЕ УЧИ ОТЦА ЕБАТЬСЯ

окда?

научу отца искать тогда ок?

http://www.delphibasics.co.uk/RTL.asp?Name=RmDir

 

Английскому отца учить надеюсь не надо?

[Гость]

На Дэлфи еще мой прадед писал Пиздец, неужели у пд проще спросить, чем гуглом воспользоваться? :po_weke:

понимаешь... пд это то место куда я обратился после того как воспользовался гуглом,так что НЕ УЧИ ОТЦА ЕБАТЬСЯ

окда?

научу отца искать тогда ок?

http://www.delphibasics.co.uk/RTL.asp?Name=RmDir

 

Английскому отца учить надеюсь не надо?

вот за это тебе спасибки 

[Гость]

хотяя....не совсем спасибо, RmDir удаляет пустой подкаталог

[AVTORKLIF]

http://www.delphifaq.com/faq/f98.shtml

[Гость]

вообще как про написал

 

 

if (DirectoryExists(S)) then

        if Application.MessageBox('Вы действительно хотите удалить данную файл?',

                                  'Подтверждение удаления файла',

                                  MB_YESNO+MB_ICONQUESTION)=idYes then

          RemoveDir(S) ;