Обои

← →
Sergiant (2004-08-19 10:49) [0]

1.Как сменить обои на рабочем столе по истечении таймера.(on timer)из конкретной папки.

2.Как по нажатию на кнопку добавить программу в автозагрузку.

← →
[lamer]Barmaglot © (2004-08-19 11:58) [1]

FAQ?
1.
http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622498&n=15

2.
Вариантов много, так как много мест откуда можно запустить программу...
2.1. Из пункта меню автозагрузка. Получаем с помошью SHGetSpecialFolderLocation с параметром CSIDL_STARTUP путь к папке автозапуска, а потом просто пишем туда свой файл.
2.2. Писать в реестр, посмотри например компонент на этом сайте http://www.torry.net/vcl/system/registry/maspregistry.zip
2.3. писать в Win.ini например так: http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=988622093&n=15
2.4. Самый "крутой" метод это создание своего сервиса, в основном им интерисуются вирусописатели... Метод достаточно сложный, но кто ищет тот всегда найдет...

← →
Mim1 © (2004-08-20 08:56) [2]

> [1] [lamer]Barmaglot © (19.08.04 11:58)

> создание своего сервиса

> Метод достаточно сложный

Создание службы сложно? :)

← →
Vasya.ru (2004-08-20 09:08) [3]

1. Лень писать, полно статей в сети
2.procedure WriteAutorun;
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create; //создание
Reg.RootKey:=HKEY_LOCAL_MACHINE; //корневой ключ
Reg.OpenKey("\SOFTWARE\Microsoft\Windows\CurrentVersion\Run",FALSE); //открытие
Reg.WriteString("MyApp",ParamSTR(0)); //запись
Reg.CloseKey; //закрытие
Reg.Free; //освобождение
end;

В обработчике ОнКлик кнопки пишешь WriteAutorun

И не забудь добавить Registry в Uses

← →
Vasya.ru (2004-08-20 09:09) [4]

Vasya.ru (20.08.04 09:08) [3]
Вместо MyApp можно написать любое другое название

Обои Найти похожие ветки