|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.05.2007, 12:14 | #1 |
Пользователь
Регистрация: 22.04.2007
Сообщений: 31
|
прога загружалась с загрузкой WINXP
как мне зделать что бы прога вкл с загрузкой WINXP,
|
31.05.2007, 12:40 | #2 |
Пользователь
Регистрация: 23.05.2007
Сообщений: 24
|
засунь ее в автозагрузку ХР
|
31.05.2007, 12:48 | #3 |
Пользователь
Регистрация: 22.04.2007
Сообщений: 31
|
нет мне надо 1. программно 2. в реестор
|
31.05.2007, 13:00 | #4 |
Пользователь
Регистрация: 23.05.2007
Сообщений: 24
|
Попробуй эту функцию:
procedure SetAutorun(aProgTitle,aCmdLine: string; aRunOnce: boolean ); var hKey: string; hReg: TRegIniFile; begin if aRunOnce then hKey := 'Once' else hKey := ''; hReg := TRegIniFile.Create( '' ); hReg.RootKey := HKEY_LOCAL_MACHINE; hReg.WriteString('Software\Microsof t\Windows\CurrentVersion\Run' + hKey + #0, aProgTitle, aCmdLine ); hReg.destroy; end; |
31.05.2007, 13:04 | #5 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
procedure SetAutorun(aProgTitle,aCmdLine: string; aRunOnce: boolean );
var hKey: string; hReg: TRegIniFile; begin if aRunOnce then hKey := 'Once' else hKey := ''; hReg := TRegIniFile.Create( '' ); hReg.RootKey := HKEY_LOCAL_MACHINE; hReg.WriteString('Software\Microsoft\Windows\Current Version\Run' + hKey + #0, aProgTitle, aCmdLine ); hReg.destroy; end; Взято с Исходников.ru http://www.sources.ru |
25.06.2007, 20:06 | #6 |
Форумчанин
Регистрация: 24.06.2007
Сообщений: 351
|
Попробуй такой вариант, прописываеться в реестре
Если вы нажмете на кнопку, то при каждом запуске Windows эта программа будет запускаться.
uses Registry; procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; begin Reg := nil; try reg := TRegistry.Create; reg.RootKey := HKEY_LOCAL_MACHINE; reg.LazyWrite := false; reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Run', false); reg.WriteString('My App', Application.ExeName); reg.CloseKey; reg.free; except if Assigned(Reg) then Reg.Free; end; end; Я не маюсь бездельем, я от него тащусь!
|
11.07.2007, 21:56 | #7 | |
Пользователь
Регистрация: 26.05.2007
Сообщений: 58
|
делай так
Цитата:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите разобраться с загрузкой | mutabor | Операционные системы общие вопросы | 6 | 31.08.2008 20:35 |
Проблемы с загрузкой главной страницы. | antfrolov | Помощь студентам | 2 | 05.04.2008 16:50 |
Нужна прога под WinXP/Vista. Плачу Webmoney. | Garza | Фриланс | 3 | 16.01.2008 09:50 |