كيف يمكن الوصول برمجيا الى ملفات swf

[delphi555]

السلام عليكم
برمجت برنامج صغير فيه دروس فلاشية تعليمية اسلامية
لكن المشكل انني لم اعرف كيف يمكن للبرنامج ان يبحث بنفسه عن الملفات المطلوبة بحيث يجب ان احولهم يدويا وهذا في حد ذاته مشكلة

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

تحياتي

[kachwahed]

ممكون توضح أكثر.

[delphi555]

السلام عليكم
مثلا عندي برنامج فيه ملف فلاش بهذا المسار c://1.swf
ولكن في قرصي الصلب لا يوجد مسار C
بل يوجد مسار Dاو Fاو G ....
ما العمل لكي يحدد البرنامج الملف داتيا يعني دون ان يقوم المبرمج بتحديد مسار الملف لكون ذلك فيه مشاكل كثيرة
اتمنى ان اكون وفقت في تبليغ السؤال بالطريقة الصحيحة

[kachwahed]

وعليكم السلام
استخدم Application.ExeName
راجع أيضا:
http://www.delphi4arab.net/forum/showpos...ostcount=5
http://www.delphi4arab.net/forum/showpos...ostcount=3
http://www.delphi4arab.net/forum/showthread.php?tid=809
أتمنى أن أكون وفقت في الإجابة.

[delphi555]

ساعود لك اخي الكريم
بعد ان ارى

[delphi555]

اوكي اخي ساستفسر عن بعض الاشياء
في الرابط هل النقطة توضع مع الملف المراد تشغيله
في الرابط التاني والثالث لم افهم
وماذا تعني باستخدام Application.ExeName

[kachwahed]

أخي...
Application.ExeName تعيد مسار الملف التنفيذي لبرنامجك.
تعني النقطة المجلد الحالي للملف التنفيذي.
جرب في الدلفي وحاول تفهم أكثر.

[issamdnn]

سأعطيك آلية البحث عن أي ملف ضمن الجهاز ما عليك إلا أن تعطيه اللحقة وهو يقوم بعمل البقية :
1- الإجرائية الأولى تقوم بعمل بحث عن السوقات الموجودة على جهازك.
2- الإجرائية الثانية تقوم بالبحث عن الملفات ذات اللاحقة المطلوبة :

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure RFindFile(const folder: TFileName);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   
    spec :string;
implementation

{$R *.dfm}

procedure TForm1.RFindFile(const folder: TFileName);
var
  SearchRec: TSearchRec;
begin
  // Locate all matching files in the current
  // folder and add their names to the list
  if FindFirst(folder + spec, faAnyFile, SearchRec) = 0 then begin
    try
      repeat
        if (SearchRec.Attr and faDirectory = 0) or
           (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
          ListBox1.Items.Add(folder + SearchRec.Name);
      until FindNext(SearchRec) <> 0;
    except
      FindClose(SearchRec);
      raise;
    end;
    FindClose(SearchRec);
  end;
  // Now search the subfolders
  if FindFirst(folder + '*.*', faAnyFile
      Or faDirectory, SearchRec) = 0 then
  begin
    try
      repeat
        if ((SearchRec.Attr and faDirectory) <> 0) and
           (SearchRec.Name <> '.') and (SearchRec.Name <> '..') then
          RFindFile(folder + SearchRec.Name + '\');
      until FindNext(SearchRec) <> 0;
    except
      FindClose(SearchRec);
      raise;
    end;
    FindClose(SearchRec);
  end;
end; // procedure RFindFile inside of FindFile

procedure TForm1.Button1Click(Sender: TObject);
begin
         spec :='*.txt';
RFindFile('c:\');
end;
end. 


ستوضع النتائج في list box اللا حقة يجب وضعها في المتحول spec ويجب أن تكون في حالتك *.swf أتمنى لك التوفيق

[delphi555]

بارك الله فيك اخي
ساجرب