Delphi dicas

Criando um atalho na area de trabalho (desktop)

Inclua ActiveX, ComObj e ShlObj na clausula USES.





Veja os eventos do form codificados abaixo:



procedure TFMain.FormCreate(Sender: TObject);

var ItemIDList :  PItemIDList;

begin



        SetLength(DirDesktop,MAX_PATH);

        SHGetSpecialFolderLocation(Application.Handle, CSIDL_DESKTOPDIRECTORY,ItemIDList);

        SHGetPathFromIDList(ItemIdList,PChar(DirDesktop));

        SetLength(DirDesktop,StrLen(PChar(DirDesktop)));



end;





procedure TFMain.BitBtn1Click(Sender: TObject);

var ShellLink : IShellLink;

PersistFile : IPersistFile;

NomeLnk : WideString;

begin



        ShellLink := CreateComObject(CLSID_ShellLink) as IShellLink;

        PersistFile := ShellLink as IPersistFile;

        with ShellLink do begin



                // Informe o Título do ícone

                SetDescription(PChar('DESCRIÇÃO DO ATALHO'));



                // Informe o Caminho e o Arquivo

                SetPath(PChar('C:PASTAARQUIVO.EXE'));



                // Argumentos para linha de comando, caso existam

                SetArguments(PChar(''));



                // Informe o Caminho e o Arquivo

                SetWorkingDirectory(PChar(ExtractFilePath('C:PASTAARQUIVO.EXE')));

        end;



        // Informe o nome do Atalho

        NomeLnk := DirDesktop+''+ChangeFileExt('DESCRIÇÃO DO ATALHO','.lnk');

        PersistFile.Save(PWideChar(NomeLnk),False);



end;