Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.08.2007, 00:44   #1
Хs-You
Пользователь
 
Аватар для Хs-You
 
Регистрация: 16.08.2007
Сообщений: 33
Вопрос Помогите

При запуске программы (например Project1) надо чтоб выполнялись.....
1Копирование в директорию (например C:\TEMP\)
2Пропись копированного файла в автозапуск
3 и всё

З.С Если есть варианты по опимизационней предлогайте рассматрю!
Как два байта переслать???
Хs-You вне форума Ответить с цитированием
Старый 17.08.2007, 07:46   #2
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

Цитата:
Если есть варианты по опимизационней предлогайте рассматрю
Какие еще варианты?
Если (1) и (2) - основные функции, то зачем еще что то мудрить?
Alex21 вне форума Ответить с цитированием
Старый 17.08.2007, 08:03   #3
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

А ты копируй файл прямо в папку Автозапуска, зачем его в Темр кидать? А вдруг Темр почистить захочется?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 17.08.2007, 11:17   #4
JTG
я получил эту роль
Старожил
 
Аватар для JTG
 
Регистрация: 25.05.2007
Сообщений: 3,694
По умолчанию

Цитата:
З.С Если есть варианты по опимизационней предлогайте рассматрю!
ассемблер =)
пыщь
JTG вне форума Ответить с цитированием
Старый 17.08.2007, 11:54   #5
UnD)eaD)Snake
Форумчанин Подтвердите свой е-майл
 
Аватар для UnD)eaD)Snake
 
Регистрация: 07.07.2007
Сообщений: 241
По умолчанию

procedure TForm1.FormCreate(Sender: TObject);
var r: tregistry;
begin
copyfile(pchar('Откуда'),pchar('С:\ temp\proga.exe'),false);
R:=TRegIniFile.Create('Software') ;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('Software', true);
R.OpenKey('Microsoft', true);
R.OpenKey('Windows', true);
R.OpenKey('CurrentVersion', true);
R.WriteString('Run', 'Название проги','C:\temp\proga.exe');
R.Free;
end;

в uses добавить registry
UnD)eaD)Snake вне форума Ответить с цитированием
Старый 17.08.2007, 11:59   #6
Alex21
With best regards
Участник клуба
 
Регистрация: 20.04.2007
Сообщений: 1,448
По умолчанию

2 UnD)eaD)Snake

Ключ открывать можно сразу по адресу:
Reg.OpenKey('software\microsoft\win dows\currentversion\run',true);
Истинно говорю
Alex21 вне форума Ответить с цитированием
Старый 17.08.2007, 14:15   #7
Master-Skull
Пользователь
 
Регистрация: 10.08.2007
Сообщений: 43
По умолчанию

2Alex21
просто так интересней.
Комьютер не поддаётся законам физики:
Глюки появляются из неоткуда, файлы пропадают в никуда...
Объём диска называется весом и измеряется в метрах...

---------------------------------------------------
Дрова для модема находятся на диске, а дрова для дисковода - в интернете...
Master-Skull вне форума Ответить с цитированием
Старый 18.08.2007, 01:22   #8
Хs-You
Пользователь
 
Аватар для Хs-You
 
Регистрация: 16.08.2007
Сообщений: 33
Подмигивание ассемблер =)

Цитата:
Сообщение от JTG Посмотреть сообщение
ассемблер =)
Это не оптимизационный вариант! Это другой язык! А я на DELPHI програмирую! Вот!
Как два байта переслать???
Хs-You вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц