удалить файлы и папки

[Аватар]

Так в чем проблема? Анализируйте на наличие ключевого слово и делайте то что вами задумано

[hacknet]

в этом то и проблема. Не получаеться у меня. Прошу у Вас помощи

[Аватар]

Ну очень внимательно прочитал сообщения, так и не понял что не получается. Определить есть ли ключевое слово exe? Выдернуть из строки путь к файлу? Запустить файл на выполнение? Если последнее, то что имеется под этим ввиду?

[Stilet]

это понятно меня интересует именно команда... Ну чтоб прописать „ехе с:\1.тхт” и если в мемо есть „ехе” то запустился файл...

А ты можешь показать код, запускающий файл, прописанный полным путем в МЕМО? Просто без exe впереди и пр. ?
покажи короче говоря наработки

[hacknet]

я не с пк поэтому вообще ничего не могу показать...
Виталий - ты же прекрасно знаешь что нужно.

[artemavd]

Все, что нужно hacknet, это научиться правильно формулировать свой вопрос и тогда получит помощь, а иначе я прикрою эту тему, что она не превращалась в помойку.

[hacknet]

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

Все, что нужно hacknet, это научиться правильно формулировать свой вопрос и тогда получит помощь, а иначе я прикрою эту тему, что она не превращалась в помойку.

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

[Stilet]

ты же прекрасно знаешь что нужно.

Ты даже не представляешь как ты ошибаешся. Твои описания смутны как сон фюрера. Вот тебе нателепатированное:

uses shellapi,
...
var s:string;
begin
 s:=copy(Memo1.Lines[0],pos(' ',Memo1.Lines[0])+1,length(Memo1.Lines[0]));
 ShellExecute(form1.handle,'open',pchar(s),'D:\','',SW_SHOWNORMAL)
end;

Это единственное что я могу написать на твой запрос.

[hacknet]

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

Ты даже не представляешь как ты ошибаешся. Твои описания смутны как сон фюрера. Вот тебе нателепатированное:

uses shellapi,
...
var s:string;
begin
 s:=copy(Memo1.Lines[0],pos(' ',Memo1.Lines[0])+1,length(Memo1.Lines[0]));
 ShellExecute(form1.handle,'open',pchar(s),'D:\','',SW_SHOWNORMAL)
end;

Это единственное что я могу написать на твой запрос.

спасибо. Как буду за пк попробую. Но я не вижу сдесь анализ на наличие ”ехе” и причем сдесь диск Д, когда мне нужен путь указанный в мемо... К примеру текст в мемо.линес[0] ”ехе с:\файл.ехе” вот если есть ”ехе” то файл ”с:\файл.ехе” запустится. Спасибо за понимание

[hacknet]

разобрался с запуском спасибо! но возникла новая проблема, вот если я пишу команду "exe c:\1.txt" файл открываеться, но если пишу к примеру команду"del c:\2" то программа отрывает папку, а не удаляет, подскажите как исправить... чтоб команды выполнялись так как надо! уважаемые модераторы не ругайтесь, что я запостил сюда, просто подумал раз тут уже идёт речь о запуске и удаление, то решил запостить сдесь

procedure TForm1.Memo1Change(Sender: TObject);
var
 sIn, path : string;

begin
 sIn := Memo1.lines[0];
   if Pos('exe ', UpperCase(sIn))<>1 then  begin

   path:=copy(sIn, 5, length(sIn) - 5 +1);
  shellexecute(form1.Handle,'open',pchar(path),memo1.Lines.GetText,'',sw_shownormal);
Exit;
end;

begin
 sIn := Memo1.lines[0];
  if Pos('del ', UpperCase(sIn))<>1 then  begin

  path:=copy(sIn, 5, length(sIn) - 5 +1);
end;
  if Not DirectoryExists(path) then begin
   showmessage('папки нет')
Exit;
end;
      MyRemoveDir(path);
end;

разве так нельзя сделать? хепл!!!