�rea de trabalho

Question

8) Oi ! Gostaria de saber como criar um atalho no desktop do windows.Por favor!...

Nildo · Answer

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;

Vagner.oliveira · Answer

[quote:436b69b835=�nildo�]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(�SoftwareMicroSoftWindowsCurrentVersionExplorer�); Directory := MyReg.ReadString (�Shell Folders�,�Desktop�,��); WFileName := Directory + �� + ShortcutName + �.lnk�; MyPFile.Save (PWChar (WFileName), False); MyReg.Free; end;[/quote:436b69b835]da erro ao compilar o programa:[code:1:436b69b835]&#91;b&93;SetArguments(Parameters); &91;/b&93; --> incompatible types String and PChar[/code:1:436b69b835]...

R�mulo Barros · Answer

Basta fazer o [b:2f291e88b4]Cast[/b:2f291e88b4]:[code:1:2f291e88b4]SetArguments(PAnsiChar(Parameters));[/code:1:2f291e88b4]ou[code:1:2f291e88b4]SetArguments((Parameters As PAnsiChar));[/code:1:2f291e88b4] :wink:...

Vagner.oliveira · Answer

[quote:80de75d028=�R�mulo Barros�]Basta fazer o [b:80de75d028]Cast[/b:80de75d028]:

SetArguments(PAnsiChar(Parameters));

ou

SetArguments((Parameters As PAnsiChar));

:wink:[/quote:80de75d028]

e onde que eu coloco o comando para que crie o atalho :?:

Vitor Rubio · Answer

Tenta o seguinte: nessa procedure, na parte que t�:

SetArguments(Parameters);

vc poe:

SetArguments(pansichar(Parameters));

assim vc pode passar os parametros como string, n�o precisa pchar. Se as outras vari�veis tamb�m forem pchar fa�a a mesma coisa, eu n�o lembro se era.

Para criar o atalho, use:

    CreateShortcut (<nome do arquivo pro qual vc quer fazer atalho>, 
        <parametros de execu��o do atalho>,
        <diretorio inicial do progr do atalho>, 
        <nome do atalho>, 
        <onde ficar� o atalho>);

J� usei essa procedure antes, se eu n�o me engano � assim ^^

espero ter ajudado!

F�rum �rea de trabalho #164018