[سوال] معرفی برنامه پیشفرض برای خواندن یک فرمت به ویندوز

[samavi2020]

چگونه می توان به ویندوز فهماند که برنامه ما را به عنوان پیشفرض خواندن یک فرمت خاص برای مثال wars درنظر بگیرد. ( البته با برنامه نویسی )

[babyy]

باید توی رجیستری واسش تعریف کنید که اینکارو کنه

فکر کنم اموزشش تو همین سایت هست

[lord_viper]

این یک یونیت هست که این کارو براتون انجام میده

extname=نام پسوند جدید
extype=خود پسوند فایل
iconader=ادرس ایکونی که به این نوع فایل اختصاص میابد

کد:

// add new file to registry for windows reconnize it//
//create by lord_viper//
//4xmen team//

unit newfile;

interface

uses
windows,registry,sysutils;

procedure newextfile(extname,extype,iconader:string);
procedure addtomenu(extype,nametomenu:string);

implementation

procedure newextfile(extname,extype,iconader:string);
var
reg:tregistry;
begin
reg:=tregistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey(extname,true);
reg.WriteString('',extype);
reg.CloseKey;
reg.OpenKey(extype+'\DefaultIcon',true);
reg.WriteString('',iconader);
reg.CloseKey;
reg.OpenKey(extype+'\shell\open\command',true);
reg.WriteString('','"'+paramstr(0)+'",%1');
reg.CloseKey;
finally
reg.Free;
end;
end;

procedure addtomenu(extype,nametomenu:string);
var
reg:tregistry;
begin
reg:=tregistry.Create;
try
reg.RootKey:=HKEY_CLASSES_ROOT;
reg.OpenKey(extype+'\shell\'+nametomenu+'\command',true);
reg.WriteString('',paramstr(0)+' %1');
reg.CloseKey;
finally
reg.Free;
end;
end;
end.

[samavi2020]

سلام دوستان گرامی
ممنون از اينكه جواب داديد
آقای Lord_viper این یونیت جواب می دهد یعنی اگر برروی فایلی با این پسوند کلیک شود برنامه ما اجرا می شود اما ایکون مورد نظر بعد از Restart windows نشان داده شد
کد :

کد php:

newextfile('D:\WINDOWS\system32\Sama\Project1.exe','.wars','D:\WINDOWS\system32\Sama\Wars-icon.ico'); 


اما سوال دوم : چطور زمانی که برنامه ما اجرا می شود آدرس فایلی که موجب باز شدن برنامه شده بدست بیاوریم .
با تشکر .

[lord_viper]

سلام دوست عزیز
برای گرفتن ادرس فایل شما از توابع paramstr و paramcount در رویداد oncreate فورمتون میتونین استفاده کنید

کد:

procedure TForm1.OnCreate(Sender: TObject) ;
var
    j:integer;
begin
    for j := 1 to ParamCount do
      ShowMessage(ParamStr(j)) ;
end;

[samavi2020]

از پاسخ شما ممنون ، متوجه شدم .
http://www.samavi2020.rozblog.com/post/30
امیدوارم همه دوستان سلامت ، موفق و پیروز باشند .

[babyy]

از پاسخ شما ممنون ، متوجه شدم .
http://www.samavi2020.rozblog.com/post/30
امیدوارم همه دوستان سلامت ، موفق و پیروز باشند .

میشه واسه برنامه‌ات؛ دیکشنری نوشت؟
بچه‌هامون یه‌سری چندتل لغت از اصطلاحات کامپویتری رو ترجمه کرده بودند + مثالی از کاربرد اون کلمه در جملات انگلیسی و ...
الان هم هدفشون اینه دایره این لغات رو افزاش بدن

اگه روی برنامتون دیکشنری هم نصب میشه (مثل بابیلون) ساختارشو بگین که این لغات رو آماده کنم؛

[samavi2020]

از پاسخ شما ممنون ، متوجه شدم .
http://www.samavi2020.rozblog.com/post/30
امیدوارم همه دوستان سلامت ، موفق و پیروز باشند .

میشه واسه برنامه‌ات؛ دیکشنری نوشت؟
بچه‌هامون یه‌سری چندتل لغت از اصطلاحات کامپویتری رو ترجمه کرده بودند + مثالی از کاربرد اون کلمه در جملات انگلیسی و ...
الان هم هدفشون اینه دایره این لغات رو افزاش بدن

اگه روی برنامتون دیکشنری هم نصب میشه (مثل بابیلون) ساختارشو بگین که این لغات رو آماده کنم؛

سلام
دوست گرامی همانگونه مشاهده فرمودید با توجه به حجم زیاد لغات و اصطلاحات نرم افزار حجم کمی دارد . برای کاهش حجم و افزایش سرعت مجبور شدم ساختار بانک اطلاعاتی و نحوه ذخیره اطلاعات را تغییر دهم در صورت تمایل بانک لغات خود را در غالب یک بانک Access ارسال فرمایید تا به عنوان یکی از بانک های جستجو در دیکشنری و به اسم فرستنده در قالب یک آپدیت یا نسخه جدید ارایه گردد .
این دیکشنری توانایی یافت بعضی از غلط های املایی را دارد برای مثال اگر در یک لغت بجای i , ee تایپ شود بصورت خودکار این حروف را جابجا نموده وبه دنبال اصطلاح می گردد البته بنده با توجه به دانش محدود خود سعی نموده ام یک دیکشنری مطلوب برای همه بزرگواران تهیه نمایم بدیهی است که همه چیز را همه کس دانند.
با توجه به این که هدف تهیه یک دیکشنری مطلوب و رایگان بوده است چه بزرگوارانی که می دانند بطور معمول چه حروفی اشتباه تایپ می شوند و چه بزرگوارانی مثل جنابعالی و سایر گرامیان که اطلاعات جامعی در مورد برنامه نویسی دارند در جهت بهبود راهنمایی فرمایند .
از بذل توجه شما به این لینک سپاسگزارم .