[Как] прописать программу в автозагрузке
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
[Как] прописать программу в автозагрузке - 2007-09-09 18:07:01.910000
|
|
|
BOND07
Сообщений: 175
Оценки: 0
Присоединился: 2007-07-05 10:49:35.983333
|
Не знаю что делать, мне нужно чтобы программа постоянно запускалась.
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-09 18:26:24.893333
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
Бля, у народа осеннее обострение тупости чтоли? ну в гугл чтоли лень заглянуть? этой инфы навалом! от автозагрузки с реестра до автозагрузки юзая сервисы …
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-09 19:16:15.393333
|
|
|
int21h
Сообщений: 105
Оценки: 0
Присоединился: 2007-08-25 12:05:16.730000
|
На чём прогу пишешь .. может помогу
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-09 22:21:30.733333
|
|
|
BOND07
Сообщений: 175
Оценки: 0
Присоединился: 2007-07-05 10:49:35.983333
|
На Delphi
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-09 22:25:32.740000
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
quote:
procedure DoAppToRunOnce(RunName, AppName: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
WriteString(RunName, AppName);
CloseKey;
Free;
end;
end;
function IsAppInRunOnce(RunName: string): Boolean;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', False);
Result := ValueExists(RunName);
CloseKey;
Free;
end;
end;
procedure DelAppFromRunOnce(RunName: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
if ValueExists(RunName) then DeleteValue(RunName);
CloseKey;
Free;
end;
end;
procedure DoAppToRun(RunName, AppName: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
WriteString(RunName, AppName);
CloseKey;
Free;
end;
end;
function IsAppInRun(RunName: string): Boolean;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
Result := ValueExists(RunName);
CloseKey;
Free;
end;
end;
procedure DelAppFromRun(RunName: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
if ValueExists(RunName) then DeleteValue(RunName);
CloseKey;
Free;
end;
end;
В uses допиши Registry;
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-09 22:29:23.010000
|
|
|
biosn
Сообщений: 657
Оценки: 0
Присоединился: 2007-06-14 20:48:39.720000
|
2blacksun, ЖЖошь!!!
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-09 22:33:41.863333
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
quote:
ORIGINAL: biosn
2blacksun, ЖЖошь!!!
А че такого))) пусть чюловег юзает :D
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-09 22:33:59.706666
|
|
|
BOND07
Сообщений: 175
Оценки: 0
Присоединился: 2007-07-05 10:49:35.983333
|
quote:
ORIGINAL: blacksun
quote:
procedure DoAppToRunOnce(RunName, AppName: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
WriteString(RunName, AppName);
CloseKey;
Free;
end;
end;
function IsAppInRunOnce(RunName: string): Boolean;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', False);
Result := ValueExists(RunName);
CloseKey;
Free;
end;
end;
procedure DelAppFromRunOnce(RunName: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True);
if ValueExists(RunName) then DeleteValue(RunName);
CloseKey;
Free;
end;
end;
procedure DoAppToRun(RunName, AppName: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
WriteString(RunName, AppName);
CloseKey;
Free;
end;
end;
function IsAppInRun(RunName: string): Boolean;
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False);
Result := ValueExists(RunName);
CloseKey;
Free;
end;
end;
procedure DelAppFromRun(RunName: string);
var
Reg: TRegistry;
begin
Reg := TRegistry.Create;
with Reg do
begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True);
if ValueExists(RunName) then DeleteValue(RunName);
CloseKey;
Free;
end;
end;
В uses допиши Registry;
Спасибо большое, всё получилось.
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-09 22:36:48.290000
|
|
|
biosn
Сообщений: 657
Оценки: 0
Присоединился: 2007-06-14 20:48:39.720000
|
quote:
ORIGINAL: blacksun
quote:
ORIGINAL: biosn
2blacksun, ЖЖошь!!!
А че такого))) пусть чюловег юзает :D
Ну так и респект, Тебе за это!))))
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-10 01:05:32.313333
|
|
|
Absurd
Сообщений: 335
Оценки: 0
Присоединился: 2007-08-24 13:14:11.566666
|
В виндовом шедюлере создаешь таск, делаешь опцию повторять каждую минуту. В самой проге создаешь проверку наличия инстанса, и если инстанс уже есть - сразу выходишь.
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-10 01:17:28.083333
|
|
|
blacksun
Сообщений: 2360
Оценки: 0
Присоединился: 2006-09-27 03:05:59.350000
|
quote:
ORIGINAL: Absurd
В виндовом шедюлере создаешь таск, делаешь опцию повторять каждую минуту. В самой проге создаешь проверку наличия инстанса, и если инстанс уже есть - сразу выходишь.
Всеравно, что трахацо через подушку, лудше уж сервисы заюзать …
|
|
|
|
|
RE: [Как] прописать программу в автозагрузке - 2007-09-10 01:23:20.373333
|
|
|
Absurd
Сообщений: 335
Оценки: 0
Присоединился: 2007-08-24 13:14:11.566666
|
quote:
ORIGINAL: blacksun
quote:
ORIGINAL: Absurd
В виндовом шедюлере создаешь таск, делаешь опцию повторять каждую минуту. В самой проге создаешь проверку наличия инстанса, и если инстанс уже есть - сразу выходишь.
Всеравно, что трахацо через подушку, лудше уж сервисы заюзать …
Сервисы работают c правами LocalSystem, система безопасности может и не пустить туда кого попало. Кстати, и Run ключег в реестре обычно находится под тщательным присмотром. А через шедюлер у меня в продакшене работала одна система видеопрезентации как часы.
|
|
|
|
|
|
