دسترسی به my network place

چطور میتوان به my network place دسترسی پیدا کرد .

نقل قول:

---

نوشته شده توسط delphi5

چطور میتوان به my network place دسترسی پیدا کرد .

---

سلام
بفرمایید

مرسی . این فایل با Delphi 5 باز نمیشه !
چطور میتونم بازش کنم ؟

نقل قول:

---

نوشته شده توسط delphi5

مرسی . این فایل با Delphi 5 باز نمیشه !
چطور میتونم بازش کنم ؟

---

از این کد استفاده کن

type 

  PNetResourceArray = ^TNetResourceArray; 

  TNetResourceArray = array[0..100] of TNetResource;



function CreateNetResourceList(ResourceType: DWord; 

                              NetResource: PNetResource; 

                              out Entries: DWord; 

                              out List: PNetResourceArray): Boolean; 

var 

  EnumHandle: THandle; 

  BufSize: DWord; 

  Res: DWord; 

begin 

  Result := False; 

  List := Nil; 

  Entries := 0; 

  if WNetOpenEnum(RESOURCE_GLOBALNET, 

                  ResourceType, 

                  0, 

                  NetResource, 

                  EnumHandle) = NO_ERROR then begin 

    try 

      BufSize := $4000;  // 16 kByte 

      GetMem(List, BufSize); 

      try 

        repeat 

          Entries := DWord(-1); 

          FillChar(List^, BufSize, 0); 

          Res := WNetEnumResource(EnumHandle, Entries, List, BufSize); 

          if Res = ERROR_MORE_DATA then 

          begin 

            ReAllocMem(List, BufSize); 

          end; 

        until Res <> ERROR_MORE_DATA; 



        Result := Res = NO_ERROR; 

        if not Result then 

        begin 

          FreeMem(List); 

          List := Nil; 

          Entries := 0; 

        end; 

      except 

        FreeMem(List); 

        raise; 

      end; 

    finally 

      WNetCloseEnum(EnumHandle); 

    end; 

  end; 

end; 



procedure ScanNetworkResources(ResourceType, DisplayType: DWord; List: TStrings); 



procedure ScanLevel(NetResource: PNetResource); 

var 

  Entries: DWord; 

  NetResourceList: PNetResourceArray; 

  i: Integer; 

begin 

  if CreateNetResourceList(ResourceType, NetResource, Entries, NetResourceList) then try 

    for i := 0 to Integer(Entries) - 1 do 

    begin 

      if (DisplayType = RESOURCEDISPLAYTYPE_GENERIC) or 

        (NetResourceList[i].dwDisplayType = DisplayType) then begin 

        List.AddObject(NetResourceList[i].lpRemoteName, 

                      Pointer(NetResourceList[i].dwDisplayType)); 

      end; 

      if (NetResourceList[i].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0 then 

        ScanLevel(@NetResourceList[i]); 

    end; 

  finally 

    FreeMem(NetResourceList); 

  end; 

end; 



begin 

  ScanLevel(Nil); 

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

 Form1.Cursor := crHourGlass;

 Button1.Cursor := crHourGlass;

 ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER, ListBox1.Items);

 form1. Cursor := crDefault;

end;

منظورم اینه که چطور آدرس my network Place یا my document یا desktop یوزر فعال را بدست بیاورم .

چرا از توی رجیستری نمی خونی؟

نقل قول:

---

منظورم اینه که چطور آدرس my network Place یا my document یا desktop یوزر فعال را بدست بیاورم .

---

SHGetSpecialFolderPath در یونیت ShlObj.

توضیحات مربوط به این تابع API و لیست CSIDL های مرتبط با آن را هم می تونید از MSDN بگیرید.

سلام
این تاپیک قدیمه

ولی من بهش نیاز دارم.

من از کدهای پست 4 که همه جای اینترنت گفته شده استفاده کردم واسه نمایش لیست کامپیوترهای workGroup
ویندوزم seven هست البته رو xp هم تست کردم ولی هیچیو بهم نمایش نمیده !!! چرا ؟ باید چی کار کنم ؟

راه حل های دیگه رو هم تست کردم ولی هیچ کدوم هیچیو بهم نمایش نمیدن:گریه::عصبانی++:

از کد زیر استفاده کنید:

type

  PNetResourceArray = ^TNetResourceArray;

  TNetResourceArray = array [0 .. 100] of TNetResource;

function CreateNetResourceList(ResourceType: DWord; NetResource: PNetResource;

  out Entries: DWord; out List: PNetResourceArray): Boolean;

var

  EnumHandle: THandle;

  BufSize: DWord;

  Res: DWord;

begin

  Result := False;

  List := Nil;

  Entries := 0;

  if WNetOpenEnum(RESOURCE_GLOBALNET, ResourceType, 0, NetResource, EnumHandle)

    = NO_ERROR then

  begin

    try

      BufSize := $4000; // 16 kByte

      GetMem(List, BufSize);

      try

        repeat

          Entries := DWord(-1);

          FillChar(List^, BufSize, 0);

          Res := WNetEnumResource(EnumHandle, Entries, List, BufSize);

          if Res = ERROR_MORE_DATA then

          begin

            ReAllocMem(List, BufSize);

          end;

        until Res <> ERROR_MORE_DATA;

        Result := Res = NO_ERROR;

        if not Result then

        begin

          FreeMem(List);

          List := Nil;

          Entries := 0;

        end;

      except

        FreeMem(List);

        raise;

      end;

    finally

      WNetCloseEnum(EnumHandle);

    end;

  end;

end;

procedure ScanNetworkResources(ResourceType, DisplayType: DWord;

  List: TStrings);

  procedure ScanLevel(NetResource: PNetResource);

  var

    Entries: DWord;

    NetResourceList: PNetResourceArray;

    i: Integer;

  begin

    if CreateNetResourceList(ResourceType, NetResource, Entries,

      NetResourceList) then

      try

        for i := 0 to Integer(Entries) - 1 do

        begin

          if (DisplayType = RESOURCEDISPLAYTYPE_GENERIC) or

            (NetResourceList[i].dwDisplayType = DisplayType) then

          begin

            List.AddObject(NetResourceList[i].lpRemoteName,

              Pointer(NetResourceList[i].dwDisplayType));

          end;

          if (NetResourceList[i].dwUsage and RESOURCEUSAGE_CONTAINER) <> 0 then

            ScanLevel(@NetResourceList[i]);

        end;

      finally

        FreeMem(NetResourceList);

      end;

  end;

begin

  ScanLevel(Nil);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER,

    ListBox1.Items);

end;

سلام

ممنون بابت توجهتون

من کدی که شما گذاشته بودید رو هم جایگزین کردم هر چند که هیچ تفاوتی نداشت ولی بازم تو لیست باکس هیچیو نمایش نمیده.

حتی exe خودتون رو هم اجرا کردم ولی هیچ جوابی نگرفتم.
این exe باید تو مسیر خاصی اجرا بشه؟:متفکر:

وقتی برنامه رو تریس میکنم تعداد entrie ها رو سه نشون میده که تعداد کامپیوترهام تو شبکه هست ولی هیچیو تو لیست باکس برنمیگردونه !!!!

چرا ؟:افسرده:

برنامه ای که قرار داده ام به درستی کار می کند. نکته : اگر شما می خواهید دو کامپیوتر A و B را با هم شبکه کنید باید آی پی یکی از این دو را در خاصیت Defual Gateway دیگری وارد کنید.

در زیر هم تصاویری را از اجرا شدن برنامه می توانید مشاهده کنید.

نقل قول:

---

اگر شما می خواهید دو کامپیوتر A و B را با هم شبکه کنید باید آی پی یکی از این دو را در خاصیت Defual Gateway دیگری وارد کنید.

---

درست نیست!
Default Gateway ربطی به شبکه کردن کامپیوترها با هم نداره، بلکه مشخص میکنه که چه کامپیوتری دروازه ورود و خروج کامپیوترهای اون شبکه با سایر شبکه ها ست؛ به عنوان مثال، اگر فقط یک کامپیوتر به اینترنت دسترسی داشته باشه، و بخواد اتصال اینترنتش را با سایر کامپیوترها به اشتراک بزاره، سایر کامپیوترهای داخل اون شبکه باید Default Gateway خودشون رو روی آدرس اون کامپیوتر خاص تنظیم کنند.

نقل قول:

---

درست نیست!
Default Gateway ربطی به شبکه کردن کامپیوترها با هم نداره، بلکه مشخص میکنه که چه کامپیوتری دروازه ورود و خروج کامپیوترهای اون شبکه با سایر شبکه ها ست؛ به عنوان مثال، اگر فقط یک کامپیوتر به اینترنت دسترسی داشته باشه، و بخواد اتصال اینترنتش را با سایر کامپیوترها به اشتراک بزاره، سایر کامپیوترهای داخل اون شبکه باید Default Gateway خودشون رو روی آدرس اون کامپیوتر خاص تنظیم کنند.

---

این مطلب رو میدونم. من موقع تست برنامنه بالا متوجه شدم که اگر defaultGateway رو تنظیم نکنم نمیتوانم کامپیوتر مورد نظر رو در work group ببینم. توجه داشته باشید که نکته ای که گفتم فقط در ارتباط با برنامه مذکور بوده است. همین...

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

شما برنامه رو تو چه ویندوزی تست میکنید ؟ seven یا xp ؟

راهکار دیگه ای نیست؟

نقل قول:

---

شما برنامه رو تو چه ویندوزی تست میکنید ؟ seven یا xp ؟

---

در XP

نقل قول:

---

راهکار دیگه ای نیست؟

---

نمی دونم،من سعی می کنم که جوابی برای این مسئله پیدا کنم. :متفکر: