Delphi – Postavljanje ikone programa na Desktop i Start meni

Verovatno ste se susretali sa problemom kako da kada izradite neku aplikaciju, pri instalaciji programa postavite ikone-prečice na Desktop i u Start meni. Radi se o tome da jednostavno postavite prečice u foldere „C:WindowsStart MenuPrograms“ i „C:WindowsDesktop“ (fajlovi su tipa *.lnk). Sledeću proceduru smestite u vaš program, pozovite je bilo kada i ona će odraditi svoj posao. Evo i procedure:

unit Unit1;

interface



uses

 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

 ShlObj, ComObj, ActiveX, registry;
type

 TForm1 = class(TForm)

 procedure AddToStartMenu;

 private

   { Private declarations }

 public

   { Public declarations }

 end;
var

 Form1: TForm1;







implementation
{$R *.DFM}
procedure TForm1.AddToStartMenu;

var

 MyObject  : IUnknown;

 MySLink   : IShellLink;

 MyPFile   : IPersistFile;

 Directory : String;

 WFileName : WideString;

 MyReg     : TRegIniFile;

begin

 MyObject := CreateComObject(CLSID_ShellLink);

 MySLink := MyObject as IShellLink;

 MyPFile := MyObject as IPersistFile;
 with MySLink do begin

   SetArguments(PChar(application.exename));

   SetRelativePath(PChar(ExtractFilePath(application.exename)),0);

   SetHotKey(635); // Podešavanje prečice sa tastature – Ctl-F12

   // Prečica takođe može biti definisana sa vrednošću $279 (Ctl-F10)

   SetWorkingDirectory(PChar(ExtractFilePath(application.exename)));

   SetDescription(PChar(‘Putanja do vase aplikacije’));

   SetIconLocation(PChar(application.exename),0);

   // Smeštanje ikone vaše aplikacije u Start meni

 end;

 MyReg := TRegIniFile.Create(

   ‘SoftwareMicroSoftWindowsCurrentVersionExplorer’);
// Sledećom linijom postavljamo prečicu na Desktop

 Directory := MyReg.ReadString(‘Shell Folders’,’Desktop’,“);
// Sa sledeće tri linije postavljamo prečicu u Start meni

 Directory := MyReg.ReadString(‘Shell Folders’,’Start Menu’,“)+

     ‘ProgramsVasPrograms’;

 CreateDir(Directory);
 WFileName := Directory+’ColorMatic 2000.lnk’;

 MyPFile.Save(PWChar(WFileName),False);

 MyReg.Free;

end;

end.

Pratite Krstaricu na www.krstarica.com