ریجستری کردن(با کلیک روی آیکون برود داخل برنامه مربوطه وباز شود)

[علیرضا110]

با سلام

حتما دیدید که وقتی در یک برنامه یک فایل را سیو میکنیم وفایل در مسیر مربوطه سیو میشه
و بعد از آن وقتی روی آیکون فایل سیو شده کلیک میکنیم فایل تو برنامه خودش باز میشود
حالا میخواهم کدش را بزارم ونمونه کدش را تا به راحتی این کار را انجام بدهید


فقط کافیه این کد را کپی در یک پروژه کنید ودر فرم کریت آن را فعال کنید وپروژه راسیو کنید
بعد از آن یک فایل با نود پد باز کنید و پسوند آن را به .ali تغییر بدهید بعد سیو کنید
الان با کلیک کردن روی آن با برنامه ای که کد ریجستری را در آن کپی کردید باز میشود

اینم کدش
procedure Set_extFile;
var r:Tregistry;
begin
r:=TRegistry.Create; with r do begin RootKey:=HKEY_CLASSES_ROOT;
OpenKey('.ali',True);WriteString('','alifile');Clo seKey;
CreateKey('alifile');OpenKey('alifile\DefaultIcon' ,True);
WriteString('',Application.ExeName+',0');CloseKey;
OpenKey('alifile\shell\open\command',True);
WriteString('',Application.ExeName+' %1');CloseKey;Free;end;
end;

طریقه فعال کردنش

procedure TForm1.FormCreate(Sender: TObject);
begin
Set_extFile;

end;

[علیرضا110]

بازم ادامه داره تا حر فه ای شود (می دانم خیلی ها دنبال یک همچین کدی هستند)

یک فرم شو باز کنید (کافیه روی فرم در قسمت متد رو فرم شو دو بار کلیک کنید تا وارد کدش بشه)
مثل کد زیر

procedure TForm1.FormShow(Sender: TObject);
var s:string;i,n:integer;
begin

s:=ParamStr(1);for i:=2 to ParamCount do s:=s+' '+ParamStr(i);
ShowMessage(s);
end;

ParamStr(1) دراصل آدرس همون فایلی است که روش کلیک کردی
الان با این آدرس هر کاری خواستی میتوانی انجام بدی
مثلا اگه نوسته ای در فایل با پسوند .ali هستش می توانی فرا خوانی کنی
و از آن استفاده کنی

[علیرضا110]

این نکته را هم بگویم که در ابتدا که فایل را کامپایل میکنید
داخل ریجیستری کامپیوتر ثبت میشود که هر فایل با این پسوند دیدی(.ali) با این برنامه باز شو

[علیرضا110]

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



دانلود نمونه کدوفایل اجرایی (http://s6.picofile.com/file/8237155618/test_rej_code.rar.html)