Criar atalho na area de trabalho via delphi

Question

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

Maicongabriel · Answer

[b:792facc42a]Criar atalho no desktop[/b:792facc42a]

Coloque essas units na se��o implementation :

uses ShlObj, ActiveX,ComObj, Registry;

Por �ltimo, crie uma procedure que fa�a o trabalho:

procedure 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(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;

[i:792facc42a]retirado do TDDelphi - Dica 348[/i:792facc42a]

F�bio Sela · Answer

// Foi necess�rio reajustar o c�digo para funcionar;
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
Directory : String;
FileName : String;
InitialDir : String;
ShortcutName : String;
Parameters : PWideChar;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
with MySLink do
begin
SetArguments(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;

F�bio Sela · Answer

Escrito em Delphi XE7...