ایجاد Shortcut

[hadi azad]

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

[FirstLine]

با سلام
من این تابع را از راهنمایی های دوستان در اینجا نوشته ام (با تشکر از زحمات و راهنمایی های دوستان عزیز :flower: ):

//---------------
Function ShortCut_Create(Str_Exe_FileName_WithPath:String; Str_ShortCut_Name:String):Boolean;
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:=Str_Exe_FileName_WithPath ; //'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 + '\' + Str_ShortCut_Name + '.lnk'; //'\YOUR APP NAME.lnk';
MyPFile.Save(PWChar(WFileName),False);
MyReg.Free;
ShortCut_Create:=True;
End;
با تشکر

[شکوه]

سلام
نیاز به تابع نداره خیلی راحتتر از این حرفهاست
در keydown فرمت باید کدنویسی کنی

[محمد میرمصطفی]

shortcut به فایل یا برای انجام یه کاره خاص؟ اگه مورد دومه، تو حلتی که فرم شما focus داره یا بدون نیاز به focus؟ هر کدوم راه حل خاص خودشو داره. :گیج:

[vcldeveloper]

نیاز به تابع نداره خیلی راحتتر از این حرفهاست
در keydown فرمت باید کدنویسی کنی
به این قسمت پست دوستمون توجه کنید:

البته بدون استفاده از اینستال شید

منظور ایجاد shortcut برای فایله، نه shortcut صفحه کلید
:موفق:

[javad_hosseiny]

برای تغییر تنظیمات shortcut چه پارامتری باید استفاده شود؟ (مثلا برای ایجاد شورکات برای برنامه های تحت داس می خواهم گزینه close on exit آن تیک بخورد و آیتم full window آن نیز تنظیم باشد)