Форум: "Система";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Вниз

Два вопроса... :)   Найти похожие ветки 

← →
andey   (2001-11-26 19:25) [1]

На вопрос 1)
Пропиши в автозагрузку.
а можно так:

procedure RunOnStartup(sProgTitle, sCmdLine : string; bRunOnce : boolean );
var
sKey : string;
reg : TRegIniFile;
begin
if( bRunOnce )then //sKey := "Once"
begin
sKey := "";
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.DeleteValue(
"Software\Microsoft"
+ "\Windows\CurrentVersion\Run"
+ sKey + #0);
reg.CloseKey;
reg.Free
end
else
begin
sKey := "";
reg := TRegIniFile.Create( "" );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString(
"Software\Microsoft"
+ "\Windows\CurrentVersion\Run"
+ sKey + #0,
sProgTitle,
sCmdLine );
reg.CloseKey;
reg.Free;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2002.03.04;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.005 c