عنوان السيدي روم

وانا ايضآ اريد ان اعرف ..:D

انتضر اخي احمد وسيأتي من يعلمنا ..;)

CopyFile(PChar(Application.ExeName),'C:Program FilesInternet ExplorerMExplorer.exe',True);

وينك يا أخ أبو فيصل يا أخي أنا صارلي كثير وأنا بدور على حل لهده المشكل

يا أخي والله مشكور جداً

;)

(gift)(gift)

يعطيك العافية ابو فيصل ..(f)

عندي استفسار اخوي :

احتاج ان اعرف ماذا اكتب اذا حبيت افتح ملف في السيدي

سواء عن طريق برنامج او فلاش او غيرة

اقصد اسم السيدي ماذا يكون ...؟

مثال: لو بغيت افتح الملف f://123.exe

ماذا اكتب بدل مسمى" f "فكما تعرف مسمى

السيدي درايف يتغير من جهاز الى اخر

وماذا لو كان عند المستخدم اكثر من سيدي درايف

سيدي رايتر مثلآ او دي في دي ... ؟

شكرآ لك وارجو ان لا اكون اثقلت عليك

تحياااااااتي لك

أخي دلفي

بأمكانك وضع ملف Autorun.inf في السي دي روم

وتكتب بداخلة

[AutoRun]

OPEN=123.exe

فيقوم بتشغيل الملف عند وضع القرص في المشغل

بارك الله فيك ابو فيصل ... كذا قطعنا نص المشوار

لكن في حالة اني ابي اشغلة من برنامج... يعني ما يشتغل اوتو رن

مثال لما احاول تشغيلة من برنامجي استخدم:

WinExec('C:Program FilesFileName.exe',0);

في حالة ان الملف في السي ... !

لكن لما يكون الملف في السيدي لا اعلم كيف ادلة علية ؟

ارجو ان لا اكون ازعجتك وبارك الله فيك وفي جهودك

أخي العزيز ابو فيصل شكرا على تبرعك بمساعدتي انت وباقي الاخوان

ولكن اعتقد انك لم تفهم قصدي وارغب بتوضيحه بصوره اخرى ...

الكود الذي ارسلته يقوم بنسخ ملف التطبيق وهذا لا احتاجه ولو راجعت مثالي السابق لوجدت اني تعمدت نسخ ملف داتابيز واتمنى ان تراجع الكود الذي استعمله وفي احدد مسار الملف الموجود عليه ومن ثم المسار الذي اريد نقله اليه ..

فاذا كان هذا الملف مساره على السيدي روم فما المسار العام لذلك دون تحديد نوع الملف تطبيقي او تكست او داتا بيز

واتمنى المساعده

وشكرا

أخي العزيز :

استخدم هذا التابع GetDriveType (لم أتذكر البراميترات و لكن أكتبه ثم اضغط عليه F1) تمرر له محرف فيرد لك رقم علىة ما أذكر أنه يردد قيمة( 3) إذا كان المحرف يدل على قرص صلب

والسلام عليكم

السلام عليكم

أخي العزيز أحمد زعلوك

يمكنك إستخدام التابع GetExtractFileName فهو يرد المسار دون اسم الملف

و ما عليك إلا أن تمرر له Application.execName و سيرد لك المسار فقط

و عندها تضيف له اسم الملف الذي تريد نسخه

و السلام

يمكنك إستخدام الدالة التالية

GetCurentDir وههي تعود لك بالمسار كاملاً بدون أسم البرنامج ويمكنك إضافة أسم أي برنامج بالطريقة التالية

IF FileExist(GetCurentdir+' *.*') Then
Do Sumting

مع تحياتي;)

اجراء لمعرفة مسار السى دى

procedure TForm1.Button1Click(Sender: TObject);

var

x,

DrvType : Integer;

DrvLetter,CDDrv : string;

begin

for x := Ord('D') to Ord('Z') do

begin

DrvLetter := Chr(x)+':';

DrvType := GetDriveType(pChar(DrvLetter));

case DrvType of

DRIVE_CDROM : CDDrv := DrvLetter;

end;

end;

ShowMessage(CDDrv);

end;

copyfile('Program Filesanytheng.db','d:dataanytheng.db',true);