Skróty w delphi i inne...

Mam pare pytanek

czy jest coś (komponent unit) żeby robić skróty do programów?????

jak zrobić StatusBar z prawdziwego zdarzenia??? (taki żeby przy kopiowaniu plików wyświetlał co trzeba "statusbar1.progress:=i" też umie

z góry dzięki za helpa!

O kopiowaniu plików z pokazem postępu i robieniu skrótów już było POSZUKAJ!!!!!!!!

Tutaj Masz kodzik na robienie prstych skrótów:

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;

Trzeba jeszcze zadeklarować jakieś moduły z tej listy : ComObj,ActiveX, ShlObj.