الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيف أعرف مسار مستكشف ويندوز؟

مغلق
بدأه essam7 في 9 نوفمبر 2004 · 19 رد · 1,413 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

أريد ان أعرف مسار مستكشف ويندوز الحالي وذلك عند حدث معين

لا أقصد مسار الملف التنفيذي الذي انفذه انما مسار مستكشف ويندوز

ولكم الشكر

#2

وين الخبراء؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

#3
procedure TForm1.Button1Click(Sender: TObject);
var
  PWindowsDir: array [0..255] of Char;
begin
  GetWindowsDirectory(PWindowsDir,255);
  Label1.Caption:=StrPas(PWindowsDir);
end;

always google it

http://www.greatis.com/delphicb/tips/lib/s...ifo-windir.html

راكان الحنيطي

Be Open Source

opensource-550x4752.gif

#4

شكرا أخي راكان هذه المعلومة أعرفها لكن ربما لم أعرف أن أعبر عن السوال كما يجب

ما أريده هو :

في لحظة ما مستخدم الكمبيوتر الان موجود في

d:\my program\acdsee

أريد أن أعرف هذا المسار

ok???

#5

Arabic in not active so i will type in english

please for god

please for god

please for god

please for god

answer me

there are no experience?????????????????????????????

#6

السلام عليكم,

يمكن أن تستعمل دالة API التالية لتعطيك المسار الحالي :

DWORD GetCurrentDirectory(
  DWORD nBufferLength,  // size, in characters, of directory buffer
  LPTSTR lpBuffer       // pointer to buffer for current directory
)

البارامتر الثاني هو بافر الذي سيستقبل المسار المطلوب.

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

إلى اللقاء.

#7

السلام عليكم ،،،

هذ الكود يبين لك طريقة استخدام دالة الأخ chik

procedure TForm1.Button1Click(Sender: TObject);
var buffer:array[0..MAX_PATH-1] of Char;
begin
  GetCurrentDirectory(SizeOf(buffer),buffer);
  label1.Caption:=string(buffer);
end;

تم تعديل هذه المشاركة بواسطة أبو محمـد في 26 نوفمبر 2004 في 22:38

#8

السلام عليكم ،،

عند التنفيذ سيعطيك المسار الذي يوجد عليه الملف التنفيذي ،

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

#9

أشكرك أخchik وأشكرك أخ أبو محمد على جهودكما لكن لو جربتو المثال سوف تجدون أنه يعطي مسار الملف التنفيذي لملف الدلفي الذي أكتب الكود بداخله

أي C:\Program Files\Borland\Delphi6\Projects

وأنا أعرف هذه الدالة واخرى أيضا من أجل نفس الغرض

رجاء تفهموني ......

أريد دالة تعطي مسار المستكشف في لحظة أنا أحددها

أذكركم أن البرنامج يعمل خلفيا

وبالنسبة لأبو محمد خفي عنك أنه في لحظة معينة يكون مستكشف واحد فقط لا غير هو المفتوح تمااااااااااااام

أسألكم بالله تلاقولي حل

#10

عفوا

في لحظة معينة يكون مستكشف واحد فقط لا غير هو المفعل وليس المفتوح

#11

السلام عليكم

من كم يوم وانا اتابع الموضوع لعلي افهم السؤال بالضبط

انا اعرف انك لا تريد مسار البرنامج ... ولكن ما ذا تقصد بالمستكشف ؟

هل تقصد الأكسبلورر وان كان هو ما تقصد فأعتقد المسار واحد للكل

سواء فتحت واحد ولا عشرة ... المسار نفسة ولن يتغير

وضح اكثر لماذا تريد معرفة المسار وماذا تريد ان تفعل بالمستكشف

وان شاء الله اخوي عصام الأخوان هنا سيجدون الحل لك .

تحياااااااااااتي

#12

أشكرك أخي

لا أدري هل أنا لا أعرف التعبير أم ماذا؟؟؟؟؟

1- أنا عندي برنامج مخفي أي فيه الكود application.showmainform:=false

2- الان البرنامج شغال

3- أحدهم يسثخدم الكمبيوتر

4- أنا محدد بعد تشغيل الكمبيوتر بساعة (أو بعد تشغيل برنامجي )لان برنامجي في الـ start up يعمل أريد أن أعرف ما هو المسار المفعل حاليا

مثلا

E:\NET WORK\MCSE Windows 2000 Directory Services Infrastructure\setup

هذا المسار الذي اريده فقط لا غير الرجاء مساعدتي

ولكم جزيل الشكر

#13

الى الان اخ عاصم لم تجب على .... مسار ماذا الذي تريد ان تعرف اذا كان المستكشف مفعل ؟

انت تقول المستكشف والمستكشف مسارة واحدة لأي نسخة مفعلة او غير مفعلة

ربما انك تقصد العنوان المفتوح في المستكشف الـــ URL

فإن كان كذالك فتستطيع من خلال الريجستري :

uses Registry;
...
// Get default page
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TRegistry.Create do
  begin
    RootKey:=HKEY_CURRENT_USER;
    if OpenKey('Software\Microsoft\Internet Explorer\Main', TRUE) then
      ShowMessage(ReadString('Start Page'))
    else
      MessageDlg('Registry read error', mtError, [mbOk], 0);
    CloseKey;
  end;
end;

وان كان غيرذالك فنرجو ان تتحملنا وتوضح اكثر .... : )

تم تعديل هذه المشاركة بواسطة 02/11/2004 في 29 نوفمبر 2004 في 18:11

#14

مشاااااااااان الله افهموا علي

شو دخل النترنت وصفحة بدايتهاstart page بالوندوز

المثال بمشاركتي واااااااااااضح جدا

عند استخدام شخص ما الكمبيوتر أو عندما الكمبيوتر يكون شغال تكون النافذة المفعلة هي مثلا على سبيل المثال لا الحصر:

سطح المكتب - لوحة التحكم - صفحة انترنت أونلاين أوأوفلاين لا يهم - برنامج من البرامج - ملف من الملفات لا تهمني ما لاحقته wav,doc,ra,inf

كل ما سبق لا يهمني

ما يهمني إن كانت النافذة المفعلة أي Active هي مسار لمجلد ما مثل أي مسار كـ D:\Documents and Settings\Administrator\Application Data

وأنا طبعا محدد مثلا بعد 10 دقائق من تشغيل برنامجي الذي به الكود الميمون

الذي ستتكرمون به علي بعد 10 دقائق أفحص ::::

هل النافذة الفعالة هي مسار مجلد ما فإن كان كذلك فأريد هذا المسااااااااااااااااااااااااااااار

لايهم أي مجلد

أنا سألت زملائي ما عرفو الحل لذا ايميلي e_alzuabi@hotmail.com

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

ليس من كثرتها إنما ماحدا عميفهم علي

سامحوني رجاء

#15

لو توضح اكثر وتشرح مرة ثانية يا اخ عصام

.

.

.

.

.

.

.

.

.

.

.

.

.

ههههههههههههه امزح معاك .... وصلت الفكرة و اتضح طلبك

لكن للأسف انا لا اعرف الجواب ... لكن سوف ابحث لك .... : )

#16

معقول ماحدا بيعرف ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

#17

أنا لاأعرف ماهو الحل ..

لكن أنصحك بالبحث في كتب ويندوز API . لقد أضفت حديثا كتاب The Tomes of Delphi Win32 Core API Windows 2000 Edition.pdf

أنصحك بالبحث فيه عن شيء مفيد ..

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

#18

شكرا عروة

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

56 $$$$$$$$$$$$$$$$$$

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

#19

لقد وضعته في مجموعه الكتب , هنا :

/index.php?showtopic=50013

#20

شكرا جزيلا عزيزي عروة

عميغلبك معي!!!

هذا الموضوع مغلق.

مواضيع مشابهة