Criar atalho na area de trabalho via delphi

11/12/2003

1

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;




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
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira