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]
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;
Coś mi sie zdaje ze K@pis chce komus swinstwo zrobic(niewidzialna forma , wpis w autostarcie):-D