اجراي فايل exe در تمام درايو هاي سيستم

از تابع application.extractfilepath(application.exename) استفاده کنید .*

با سلام
اگر دوستان متد ويا كد وهر نوع فرمول و...در اختيار دارند كه باعث شود فايل exe* دلفي در هر درايوي كپي شودو قابل اجرا گردد در سايت قرار دهند تا من وديگران بتوانيم از آن استفاده كنيم. فايل هايexe در درايوي اجرا مي شوند كه آن درايو مسيري باشد كه به دلفي** معرفي شوديعني فايل exe در آن درايو كه پروژه آن ساخته شده* اجرا مي شود. اين مشكل با installshield نرم افزار ستاپ سازي قابل حل است.من قبلا چنين راهنمايي در سايت ديده بودم اما ديگر از آن خبري نيست.

فایل های کامپایل شده دلفی نیازی به مسیر خاصی ندارند . و تو هر پوشه ای اجرا میشن . مگر اینکه به دیتابیس یا فایلی احتیاج داشته باشه که باید مسیر اون فایل یا دیتابیس بهش داده بشه !

سلام دوست عزیز شما چون در داخل برنامه خود جدولی دارید که در یک مسیر خاص ذخیره شده و احتمالا در همان مسیر اجرای برنامه شما میباشد مثال زیر را در قسمت کریت فرم خود بنویسید
procedure TForm1.FormCreate(Sender: TObject);
var path_ : string ;
begin

* // path_* اين دستور باعث ميشود مسير اجراي برنامه شما در داخل
* // ذخيره ميشود

* ado_1.Active := False ;

* GetDir(0,path_) ;

* path_ :="FILE NAME="+ path_ + "a.dsn";

* edt_1.Text :=* path_ ;**** // اين باکس براي اين است که شما بتوانيد مسيرتان را ببينيد

* ado_1.ConnectionString := path_ ;

* ado_1.Active := True ;



end;


انشاله که کمک کرده باشم