سؤال عن كيفية سحب ملفات محددة لل......

منقول

أخي العزيز أرجو أن يكون هذا هو طلبك

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

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

هل تريدون ان تقوموا بوضع بتعريف نوعية من الملفات لكي تيم فتحها في برنامجك (( اي مماثل لبرنامج الكتابة 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('NameProg\Shell\Open\Command', 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

منقول من المنتدى القديم الأخ sum

يمكنك إستعمال المكون OpenDialog

شيئ مثل:

if OpenDialog1.execute then MediaPlayer1.FileName := OpenDialog1.FileName;

الرجل يعني شي مثل الdrag and drop

romanof كتب:

الرجل يعني شي مثل الdrag and drop

←

مثال عن ذلك من موقع شــــــــــــــــامي

هذا هو قصدي يا أخي DeltaAziz .

و شكراً لتعاونكم جميعاً