Jak dodac skrot do autostaru??

0

No wiec jak zrobic zeby po uruchomieniu programu jego skrot dodawał sie do autostartu [???]
Zdaje mi się że jakoś tak, ale cos tam pozminiac trzeba tylko nie wiem jak ;p :
Directory := MyReg.ReadString('Shell Folders','Start Menu','')+
'Microspace';
Dzieki z góry za odpowiedzi [cya]

0

Function GetP(Folder: Integer): String;
Var FilePath: Array[0..MAX_PATH] of Char;
Begin
SHGetSpecialFolderPath(0, FilePath, Folder , False);
Result:=StrPas(FilePath);
End;

Procedure NowySkrot(Const NazwaPliku,NazwaSkrotu:String);
Var IObject : IUnknown;
ISLink : IShellLink;
IPFile : IPersistFile;
WFileName: WideString;
Begin
IObject := CreateComObject(CLSID_ShellLink);
ISLink := IObject As IShellLink;
IPFile := IObject As IPersistFile;

With ISLink Do
Begin
SetPath(PChar(NazwaPliku));
SetWorkingDirectory(PChar(ExtractFilePath(NazwaPliku)));
End;
CreateDir(ExtractFilePath(NazwaPliku));
WFileName := NazwaSkrotu;
IPFile.Save(PWChar(WFileName), False);
End;

NowySkrot('do czego skrot',GetP(CSIDL_DESKTOP)+'\Nazwa.lnk')

Dodaj do uses ShellAPI, ShlObj;

0

Coś mi sie zdaje ze K@pis chce komus swinstwo zrobic(niewidzialna forma , wpis w autostarcie):-D

1 użytkowników online, w tym zalogowanych: 0, gości: 1