مسار التجميعة exe

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله

لي تجميعة سأحفظها بصيغة exe هل يمكن أن
أضع أنبوت بحيث يندرج في التجميعية كود ذكي
يتعرف على مسار القرص `ذاته تلقائيا و يضعه بتسميته مهما تغيرت
و فق المسار الذي سيتحول إليه في الانبوت ؟؟

السلام عليكم

[النصل القاطع]

إستخدم المسارات العامة

[ثامر أبو بلقيس]

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

[النصل القاطع]

أمر إحضار المسار

result = Folder.GetCurrent();

المسار يخزن فى المتغير result
أو إى إسم آخر ستسمى به المتغير

[ثامر أبو بلقيس]

:abc_022::abc_022: بارك الله فيك :abc_022::abc_022:

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله
عند حفظ ملف بصيغة web/exe
على أن تزرع في الحدث On Preload الكود التالي :
function appPathOriginal()
-- returns the original EXE's path ONLY
-- this is useful for compressed single-file apps run from a CD
-- but, it also works with folder-based apps

local cdPath = "";
local findMarker = "SFXSOURCE:";
local cmdArgs = "";

if (Table.Count(_CommandLineArgs) > 0) then
for i = 1, Table.Count(_CommandLineArgs) do
if (String.Find(_CommandLineArgs[i], findMarker) > 0) then
cmdArgs = _CommandLineArgs[i];
break;
end
end
end

if (cmdArgs ~= "") then
if (String.Find(cmdArgs, findMarker) == 1) then
local fullPath = String.Replace(cmdArgs, findMarker, "", true);
local tblFullPath = String.SplitPath(fullPath);
cd_Path = tblFullPath.Drive .. tblFullPath.Folder;
cd_Path = String.TrimRight(cd_Path, "\\");

end
else
cd_Path = _SourceFolder;
end
return cd_Path;
end

و وضع زر لاستقبال اسم المجلد المتواجدة فيه الاسطوانة
نضع الكود في زر مثلا :
sPath = appPathOriginal();
tSplitPath = String.SplitPath(sPath);
Dialog.Message("Notice", tSplitPath.Filename, MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

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

سؤالي : كيف استغل هاته الأكواد لأضيف كامل مسارها العادي ليس المؤدي للتومب ؟
بهذه الصيغة على سبيل المثال :C:\Documents and Settings\Administrator\Desktop\145.exe

و في شق ثان :
العلامة \ وجدت صعوبة في استبدالها بـ \\

السلام عليكم ورحمة الله

[Haitham.2012]

حقيقة لا افهم استفسارك بالضبط .. لأن لو على كيفية الحصول على مسار المشروع أعتقد ان الاخ خالد قدم لك المطلوب ..

وما علاقة الكود الطويل الذي ادرجته بكود الحصول على المسار الحالي للملف التنفيذي ..؟؟

[النصل القاطع]

حقيقة لا افهم استفسارك بالضبط .. لأن لو على كيفية الحصول على مسار المشروع أعتقد ان الاخ خالد قدم لك المطلوب ..

وما علاقة الكود الطويل الذي ادرجته بكود الحصول على المسار الحالي للملف التنفيذي ..؟؟

هو يريد معرفة مسار التجميعة كملف sfx قبل الفك للتمب

الحل
هذا هو الكود اللازم لكشف مسار ملف web email الذى يكون بهيئة sfx أو ذاتى الفك
ضع هذان السطران فى أى زر كأى كود عادى

ss = Table.Concat(_CommandLineArgs, "", 1, TABLE_ALL), "SFXSOURCE:", "", false
sfx_path = String.Replace(ss, "SFXSOURCE:", "", false);

المسار الآن مخزن فى المتغير sfx_path أو أى إسم آخر يحلو لك

لا تقل لى أنه لا يعمل !!
فهو فعلا لن يعمل عند المعاينة
لأن sfx وقتها لم يتكون بعد

لكنه سيعمل كالصاروخ عندما تترجم التنفيذى لصيغة web email

[ثامر أبو بلقيس]

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

[أبو فارس]

موفقون بإذن الله ... لك مني أجمل تحية .

[الحارث بن فيصل]

لك كل الشكر والتقدير على كل مشاركاتك القيمة

[أبو يوسف]

ما شاء الله عليكم

كالبنيان المرصوص يشد بعضه بعضا

.

[خادم المسلمين]

الله يكرمك يا ابو بلقيس

سبحان الله

ربنا قال انا نحن نزلنا الذكر وانا له حافظون
وقال فسئلوا اهل الذكر ان كنتم لاتعلمون
انت ربنا استخدمك للعلم وللحفاظ عليه وتبليغه للاخرين
وعدم التخلى عن هذه الرسالة هو اهم مكسب من مكاسب العلم نفسه

[ثامر أبو بلقيس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_152: