|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.11.2006, 19:50 | #11 |
Павел Сергеевич
Форумчанин
Регистрация: 05.11.2006
Сообщений: 665
|
ExtractFilePath(ParamStr(0)) - возвращает директорию файла.
Познавая других, мы познаем себя.
С'est la vie... Последний раз редактировалось SuperVisor; 12.11.2006 в 19:52. |
12.11.2006, 20:00 | #12 |
Пользователь
Регистрация: 08.11.2006
Сообщений: 25
|
после
reg:=Tregistry.Create; надо было добавить reg.Access:=KEY_ALL_ACCESS; и еще в начальном коде ошибка: CurrentVer sion Лишний пробел. Я копировал тупо ... и не заметил =) А как ты сделал копирование файла? Получается так, если возврат строки: reg.WriteString('ICQ','ExtractFileP ath(ParamStr(0))\Lost.exe');? Последний раз редактировалось Svop; 12.11.2006 в 20:02. |
12.11.2006, 20:02 | #13 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
CurrentVer sion - я не знаю почему здесь пробел, я пробывал редактировать своё сообщение, так там пробела нет!
Как копировал? Вот так: copyfile(PChar(Application.ExeName) ,'C:\path.exe',true); где path.exe - будущая копия твоей программы, перед копированием не плохо было бы проверить существование этого файла (а вдруг твоя прога уже записана там), это можно сделать с помощью функции fileExists('C:\path.exe') Последний раз редактировалось zetrix; 12.11.2006 в 20:08. |
12.11.2006, 23:51 | #14 |
Игрок
Форумчанин
Регистрация: 29.10.2006
Сообщений: 367
|
когда я писал программы приколы, я использывал такой алгоритм:
1. проверяем, нет ли по адресу копирования данного файла (то есть первый раз запускается или нет) 2. если нет - копируем и закрываем прогу, если есть просто запускаем. последнее. совет на будущее: не разыгрывай полных чайников - прикола не поймут, зато из-за такой фигни могут серьезно обидеться. а если пишешь вирус (плохое занятие) используй сервисы!
Жизнь всегда игра. Но смерть - не всегда поражение.
#define true (Math.random()>0.5) //Удачной отладки |
13.11.2006, 16:09 | #15 |
Пользователь
Регистрация: 08.11.2006
Сообщений: 25
|
а как можно в новом файле поменять иконку?
в основном файле через опции а так? |
13.11.2006, 18:46 | #16 |
Павел Сергеевич
Форумчанин
Регистрация: 05.11.2006
Сообщений: 665
|
бери любой редактор ресурсов, и меняй, в чем проблема?
Познавая других, мы познаем себя.
С'est la vie... |
13.11.2006, 19:44 | #17 |
Пользователь
Регистрация: 08.11.2006
Сообщений: 25
|
ты не понял. в новом файле, при создании копии иконка остается оригинальная.
а мне надо, чтобы при копировании файла иконка менялась автоматом. |
13.11.2006, 19:48 | #18 |
Александр
Администратор
Регистрация: 28.10.2006
Сообщений: 17,526
|
предлагаю программе запоминать в спец файле место расположения. если программу скопировали, то после проверки она обнаружит, что её скопировали, тогда она сменит себе иконку(можно рандомом из имеющихся) и допишит свой новый адрес...
как такой вариант? |
13.11.2006, 19:49 | #19 |
Павел Сергеевич
Форумчанин
Регистрация: 05.11.2006
Сообщений: 665
|
Тоесть как это? Копируешь файл, а иконка автоматически меняется на стандартную, дэльфовскую? Что-то ты не то говоришь, объясни поконкретней!!!
Познавая других, мы познаем себя.
С'est la vie... |
13.11.2006, 20:07 | #20 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
создавать ресурсный файл с иконкой, подрубать его к программе, и менять иконку тогда, когда прога уже копировала себя
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
скрытый автозапуск программы | vicvtor | Win Api | 28 | 21.10.2008 17:45 |
Скрытый автозапуск программы | Comer_Jus | Помощь студентам | 1 | 20.06.2008 14:47 |
Автозапуск | PROGR | Общие вопросы Delphi | 8 | 26.12.2007 08:54 |
Автозапуск | zzzzz | Общие вопросы Delphi | 2 | 12.11.2007 08:54 |
автозапуск | effluent | Безопасность, Шифрование | 7 | 19.04.2007 20:12 |