Criar atalho na area de trabalho via delphi

11/12/2003

0

Primeiramente olá para todos,

Alguem aqui do forúm teria uma função de como criar um atalho na area de trabalho??? Vai servir em um programa que eu mesmo desenvolvi para instalação de software e pintou esta dúvida, se alguém souber será de grande ajuda.

Obrigado desde já.


Responder

Post mais votado

13/12/2003

procedure TForm1.CreateShortcut (FileName, Parameters, InitialDir, ShortcutName, ShortcutFolder : String);
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(Parameters));
      SetPath(PChar(FileName));
      SetWorkingDirectory(PChar(InitialDir));
   end;
   MyReg := TRegIniFile.Create(´Software\MicroSoft\Windows\CurrentVersion\Explorer´);
   Directory := MyReg.ReadString (´Shell Folders´,´Desktop´,´´);
   WFileName := Directory + ´\´ + ShortcutName + ´.lnk´;
   MyPFile.Save (PWChar (WFileName), False);
   MyReg.Free;
end;




Fabio.hc

Fabio.hc
Responder

Mais Posts

15/12/2003

Nuk

Obrigado pela ajuda, foi de grande importância para mim, é bom saber que posso sempre contar com os programadores desse forum


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar