Сега погледнете в папката "Startup". Ако зададете функция на името на файла, то вече трябва да има :).
Обърнете внимание на три специализирани линии. С тяхна помощ, можете да намерите пътя до всяка папка система, посочена в функция SHGetSpecialFolderLocation съответстващ постоянна: CSIDL_DESKTOP десктоп, CSIDL_FONTS шрифтове и т.н.
Сега по-прост начин - ключов пост в раздел регистър Run. Под комбинирани и създаване и заличаване в една процедура.
процедура ChangeReg (StrName: ShortString; изтриване: булев);
Var
рег: TRegistry;
започвам
Reg: = нула;
опитвам
рег: = TRegistry.Create;
reg.RootKey: = HKEY_LOCAL_MACHINE;
reg.LazyWrite: = фалшива;
reg.OpenKey ( "Software \ Microsoft \ Windows \ CurrentVersion \ Run", невярно);
ако не се изтриват след reg.WriteString (StrName, Application.ExeName)
друго reg.DeleteValue (StrName);
reg.CloseKey;
reg.free;
с изключение на
ако целеви (REG) след Reg.Free;
приключи;
приключи;
процедура TForm1.AddBtnClick (Sender: TObject);
започвам
ChangeReg ( "My App", невярно); // добави в стартовата
приключи;
процедура TForm1.RemoveBtnClick (Sender: TObject);
започвам
ChangeReg ( "My App", вярно); // премахнете от стартиране
приключи;
Това е всичко. Ако не - пишете, ние ще Ви помогнем.
Свързани статии