Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом
Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »

Вопрос # 5 127

Раздел: Delphi » Работа с файловой системой
/ вопрос открыт /

Приветствую, уважаемые эксперты!
Меня зовут Лёша, 14 лет, нужно найти файл C:/c/1/1.exe и переименовать в C:/c/1/2.exe, не используя form.

Приложение:
  1. var
  2. myfile:file;
  3. FindRes:integer;
  4. RS:tsearchrec;
  5. procedure findrename(RS:string);
  6. begin FindRes:=FindFirst('c:\C\1\1.exe',faAnyFile,RS);
  7. While FindRes=0 do
  8. begin
  9. Rename(myfile, 'c:\C\1\YES.exe');
  10. repeat
  11. until
  12. FindNext(RS) <> 0;
  13. SysUtils.FindClose(victims);


Кудя Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: Кудя (статус: Посетитель)
Вопрос отправлен: 26 марта 2011, 13:11
Состояние вопроса: открыт, ответов: 2.

Ответ #1. Отвечает эксперт: IlluminatI

Здравствуйте, Кудя!
Мне кажется как-то так (код в приложении).

Приложение:
  1. var Path: string;
  2.  
  3. // ...
  4. Path := 'C:\c\1\1.exe';
  5. if FileExists(Path) then
  6. begin
  7. AssignFile(myFile, Path);
  8. Rename(myFile, '2.exe');
  9. end;
  10.  
  11.  


Ответ отправил: IlluminatI (статус: 2-ой класс)
Время отправки: 26 марта 2011, 18:16

Ответ #2. Отвечает эксперт: Толяныч

Здравствуйте, Кудя!

По-моему, вот так. Проверено, работает.

Приложение:
  1. var FName,NewName : string
  2.  
  3. FName := 'D:\1\1.exe';
  4. NewName := 'D:\1\2.exe';
  5. if RenameFile(FName,NewName) then ShowMessage ('OK') else ShowMessage ('Bad')
  6.  


Ответ отправил: Толяныч (статус: 4-ый класс)
Время отправки: 26 марта 2011, 23:51


Мини-форум вопроса

Всего сообщений: 4; последнее сообщение — 29 марта 2011, 15:03; участников в обсуждении: 3.
min@y™

min@y™ (статус: Доктор наук), 26 марта 2011, 13:13 [#1]:

Толяныч, ФАС!!!
Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Толяныч

Толяныч (статус: 4-ый класс), 26 марта 2011, 23:54 [#2]:

Только у меня пути другие, но это без разницы.
Толяныч

Толяныч (статус: 4-ый класс), 28 марта 2011, 00:47 [#3]:

И исчез Леша он же Кудя гулять с девушками, не оставив слов искренней благодарности. Больше о помощи не проси.
Кудя

Кудя (статус: Посетитель), 29 марта 2011, 15:03 [#4]:

Здравствуйте уважаемые эксперты, спасибо за вашу помощь, правда я сделал несколько иначе, но очень похожы на ваши ответы. Теперь у меня всё работает, извините, что пишу так поздно, но искреннее вам спасибо. Правда, у вас в коде небыло фрагмента поиска этих файлов, у меня программа немного похожа на поиск и переименование с формами, но у меня старший брат задал мне такое задание, чтобы форм небыло вообще, это веть труднее, чем с формами, но преодалевая трудности, становишься ближе к программе.
Think Different. (c)

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
Версия движка: 2.6+ (26.01.2011)
© 2005-2025
Текущее время: 22 февраля 2025, 11:32
Выполнено за 0.02 сек.