تعريف نوعية من الملفات لكي يقرئها برنامجك

بسم الله الرحمن الرحيم

اخوتي الأعزاء

هل تريدون ان تقوموا بوضع بتعريف نوعية من الملفات لكي تيم فتحها في برنامجك (( اي مماثل لبرنامج الكتابة Word بحيث اذا قمت بالنقر على احد ملفاته يقوم بفتح برنامج Word ويقوم بفتح الملف المضغوط عليه

فاليكم الكود :

قبل كتابة هذه الأكواد يلزمك اضافة Registry في uses

1) هذا الكود يقوم بتعريف نوعية الملف

بحيث تستطيع ان تحدد ايقونة الملف الخاص ببرنامجك

var

Reg:TRegistry;

begin

Reg := TRegistry.Create;

with Reg do

try

RootKey := HKEY_CLASSES_ROOT;

OpenKey('.arab', True);

WriteString('', 'NameProg');

CloseKey;

OpenKey('NameProg', True);

WriteString('', 'Title');

OpenKey('DefaultIcon', True);

WriteString('', '"'+ParamStr(0)+'"' + ',0');

CloseKey;

OpenKey('NameProgShellOpenCommand', True);

WriteString('', '"'+ParamStr(0)+'"' + ' "%1"');

CloseKey;

except

end;

--------------

2) وهذا الكود يقوم بقرائة الملفات المفتوحه

var FileName : string;

i : integer;

begin

for i := 1 to ParamCount do begin

if i = 1 then

FileName := ParamStr(1)

else

FileName := FileName+' '+ParamStr(i);

end;

طبعاً من الأفضل انك تقوم بوضع هذا الكود في حدث OnActivate

و ستصبح FileName هي مسار الملف

وتقبلوا اطيب تحياتي اخوكم SUM