على هذا الكود الذي يقوم بإشاء اختصار على سطح المكتب

السلام عليكم

اخي sum لم اصبر عل المشروع الذي اقترحته انت وبدات ابحث عن القاعدة

اي الخطوات الاساسية فيه فعثرت على هذا الكود الذي يقوم بإشاء اختصار

على سطح المكتب + وضعه في قائمة ابدا

ارجوا اني لم اتسرع

unit Unit1;

interface

uses ShlObj, ActiveX, ComObj, Registry,

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private{ Déclarations privées }

public { Déclarations publiques }

end;

var

Form1: TForm1;

implementation {$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var

MyObj : IUnknown;

MySLink : IShellLink;

MyPFile : IPersistFile;

FileName : String;

Directory : String;

WFileName : WideString;

MyReg : TRegIniFile;

begin

MyObj := CreateComObject(CLSID_ShellLink);

MySLink := MyObj as IShellLink;

MyPFile := MyObj as IPersistFile;

FileName := 'NOTEPAD.EXE';

with MySLink do

begin

SetArguments('C:AUTOEXEC.BAT');

SetPath(PChar(FileName));

SetWorkingDirectory(PChar(ExtractFilePath(FileName)));

end;

{1} MyReg := TRegIniFile.Create('SoftwareMicroSoftWindowsCurrentVersionExplorer');

{2} Directory := MyReg.ReadString('Shell Folders','Desktop','');

WFileName := Directory+'FooBar.lnk';

MyPFile.Save(PWChar(WFileName),False);

MyReg.Free;

end;

end.

اخوي sum وفقكم الله

اعلمكم اني استعملت لاول مرة برنامج الضغط بالعنصرين ZLBArchive1 FolderBrowse1

الذ ي اخبرنا به اخي بلعيد جزاه الله خيرا لكنه اقل ضغطا من winzip

اخوك pati

كما اريد من استاذي فريد رئيس فريق micropati ان يشارك معنا في المنتدى

لاني اعلم انه يتابع الجديد فيه وان ينفعنا بعلمه نفعه الله واياكم

اني انتضركم يافريق .

*************************************run****************************************

HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerRunMRU

*************************************run****************************************