System Folder

[FirstLine]

با سلام
چجوری میشه برای برنامه ای که ساخته ایم یه آیکون مثل ControlPanel , My Computer بر روی Desktop درست کرد؟
با تشکر

[JavanSoft]

با Install Shildو یا WinRar

[آناهیتا]

با سلام کد زیر هم این کار را انجام می دهد . امیدوارم که مفید باشد.



unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShlObj, ComObj, ActiveX, registry;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
MyObject : IUnknown;
MySLink : IShellLink;
MyPFile : IPersistFile;
FileName : String;
Directory : String;
WFileName : WideString;
MyReg : TRegIniFile;
begin
MyObject := CreateComObject(CLSID_ShellLink);
MySLink := MyObject as IShellLink;
MyPFile := MyObject as IPersistFile;
FILENAME:='E:\D7\Projects\PROJECT1.EXE'; //YOUR FILE NAME -PATH MUST BE WRITE
with MySLink do begin
SetPath(PChar(FileName));
SetWorkingDirectory(PChar(ExtractFilePath(FileName )));
end;
MyReg := TRegIniFile.Create('Software\MicroSoft\Windows\Cur rentVersion\Explorer');

// Use the next line of code to put the shortcut on your desktop
Directory := MyReg.ReadString('Shell Folders','Desktop','');

WFileName := Directory+'\YOUR APP NAME.lnk';
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
end;//PROCEDURE
end.