Criar atalho na area de trabalho via delphi

Delphi

11/12/2003

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á.


Nuk

Nuk

Curtidas 0

Melhor post

Fabio.hc

Fabio.hc

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;



GOSTEI 1

Mais Respostas

Nuk

Nuk

11/12/2003

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


GOSTEI 1
POSTAR