Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> CopyFile 
:(
    Опции темы
Kirgston
Дата 20.9.2008, 19:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2
Помогите пожалуйста с кодом

Код

CopyFile(pchar(GetCurrentDir+Application.ExeName), PChar('c:\'+Application.ExeName),true);


Вот я его прописал... по идеи тут написано чтоб программа скоприровала файл не взирая на имя файла и путь к нему. Но почемуто нет никакой ошибки, но файл не копируеться... :( что тут не так? :(
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 19:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Код

copyfile(pchar(extractfilepath(application.ExeName)+'\bolvan1.doc'),pchar('c:\zakaz.doc'),false);


Добавлено через 50 секунд
Цитата(Kirgston @  20.9.2008,  20:14 Найти цитируемый пост)
не взирая на имя файла и путь к нему.

Как понять "невзирая на имя файла"? А как программа узнает, какой файл нужно копировать?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Kirgston
Дата 20.9.2008, 20:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2
Ну тоисть если я например изменю имя файла. То оно сьоравно должно копировать. Но оно етого не делает... :(
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 20:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Kirgston @  20.9.2008,  21:02 Найти цитируемый пост)
Ну тоисть если я например изменю имя файла. 

Снова-таки возникает вопрос "как программа должна узнать новое имя файла"? Тогда храни его где-нибудь, в том же реестре.



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Kirgston
Дата 20.9.2008, 21:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2
а что нельзя скопировать самого себя? о_О
Ведь в виндоусе можна спокойно скопировать самого себя )))))
PM MAIL   Вверх
THandle
Дата 20.9.2008, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372
Kirgston, в твоем коде настораживает GetCurrentDir+Application.ExeName. ParamStr(0) или Application.ExeName вполне хватит.

Попробуй так: 

Код

if CopyFile(PChar(Application.ExeName), PChar('c:\' + Application.ExeName), true) = 0 then
  SysErrorMessage(GetLastError);


По идее должно работать.

ЗЫ: проверить не могу, ибо только поставил Винду, Delphi еще не установлена...

Это сообщение отредактировал(а) THandle - 20.9.2008, 21:15
PM   Вверх
Данкинг
Дата 20.9.2008, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Kirgston @  20.9.2008,  22:08 Найти цитируемый пост)
что нельзя скопировать самого себя?

Скопировать сам EXE программы, что ли?

Код

copyfile(pchar(application.ExeName),pchar('d:\'+extractfilename(application.ExeName)),false);



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Kirgston
Дата 20.9.2008, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2
емммммм тоже не копирует )))))
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 21:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Kirgston @  20.9.2008,  22:24 Найти цитируемый пост)
емммммм тоже не копирует )))))

Проверил, всё нормально копирует!



--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Riply
Дата 20.9.2008, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

Репутация: 21
Всего: 32
Цитата(Kirgston @  20.9.2008,  21:24 Найти цитируемый пост)
емммммм тоже не копирует )))))


CopyFile - это функция. 
Есть еще парочка очень полезных фукций: GetLastError и SysErrorMessage   smile



--------------------
Решение задач под заказ
PM MAIL   Вверх
Kirgston
Дата 20.9.2008, 21:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2
Странно... но у меня нет результата.... щас перезагружусь... может опять делфи шалит
PM MAIL   Вверх
Данкинг
Дата 20.9.2008, 21:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: нет
Всего: 130
Цитата(Kirgston @  20.9.2008,  22:39 Найти цитируемый пост)
Странно... но у меня нет результата.... щас перезагружусь... может опять делфи шалит 

Обрати внимание, что у меня копируется на d:, а не на c:, может, из-за этого.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Kirgston
Дата 20.9.2008, 22:01 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 792
Регистрация: 24.12.2007

Репутация: нет
Всего: 2
Нет нет smile я поменял. Уже все гуд! ;) просто у меня такой процессор + такой Делфи .... кхе - кхе. Делфи 2009 очень багнутый. Жду сервис пака )))) и процессор странный. Бывают такие игры как Ла2. На которых игра просто не запускается. Она не может определить тип процессора. Вобщем просто 3800+ сама по себе баговая серия smile
PM MAIL   Вверх
BaD_SeCt0R
Дата 21.9.2008, 02:31 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Lazy Coder
**


Профиль
Группа: Участник
Сообщений: 432
Регистрация: 9.10.2006
Где: Анапа

Репутация: 3
Всего: 18
Цитата(Kirgston @  20.9.2008,  22:01 Найти цитируемый пост)
 процессор + такой Делфи .... кхе - кхе. Делфи 2009 очень багнутый

Плохому танцору...

Некоторые функции возвращают путь без '\' в конце, проблема может быть в этом.


--------------------
Кто владеет информацией - владеет миром. (С) Френсис Бэкон.
PM MAIL ICQ   Вверх
THandle
Дата 21.9.2008, 08:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Хранитель Клуба
Group Icon
Награды: 1



Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 7
Всего: 372
Код

  if not CopyFile(PChar(Application.ExeName), PChar('c:\' + ExtractFileName(Application.ExeName)), true) then
    ShowMessage(SysErrorMessage(GetLastError));
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1054 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.