indy client server

[tactools]

سلام
می خام یه برنامه بنویسم با ایندی که رو سیستم کلاینت یه فرم رو بتونه باز کنه و ببنده و بتونه task maneger سیستم کلاینت رو تو سیستم سرور نشون بده و بتونه برنامه در حال اجرا رو ببنده
هر چی سعی کردم از اموزشهای این سایت چیزی بفهمم نتونستم اگه دوستان راهنماییم کنن ممنون می شم

[rezaei manesh]

شما یه برنامه مثل reَAdmin می خوای ظاهراً اما با امکانات بیشتر
این خیلی سخته
سوکت پروگرمینگ یکسری امکانات مشابه این ها رو داره اما من تا بحال با اون کار نکردم

***با تلاش موفق می شوید.***

[MNosouhi]

می خام یه برنامه بنویسم با ایندی که رو سیستم کلاینت یه فرم رو بتونه باز کنه و ببنده

برنامش رو گذاشتم.

بتونه برنامه در حال اجرا رو ببنده

کافیه از مثال تبعیت کنی ، لیست پروسس ها رو بگیر و بفرست.

[شما یه برنامه مثل reَAdmin می خوای ظاهراً اما با امکانات بیشتر
این خیلی سخته

با وجود Indy این چیزها خیلی پیش پا افتادس.

[tactools]

دوست عزیز واسه task maneger چی می تونید منو راهنمایی کنید

[MNosouhi]

با این تابع لیست پروسه ها رو بگیرید :

Procedure GetTasklist(fList:TstringList);

  Function EnumWindowProc(Wnd:HWnd;Lst:TstringList):bool;stdC  all;

  var

    Caption:array[0..128] of char;

  Begin

    Result:=true;

    If (IsWindowVisible(wnd))and

      ((GetWindowLong(wnd,gwl_HwndParent)=0) or

       (Hwnd(GetWindowLong(Wnd,Gwl_HwndParent))=GetDeskto  pWindow)) and

       ((GetWindowLong(wnd,gwl_ExStyle)and ws_Ex_ToolWindow)=0) then

    begin

      SendMessage(wnd,Wm_GetText,SizeOf(Caption),Integer  (@Caption));

      lst.Add((caption));

    end;

  end;

Begin

  If not assigned(fList) then

    flist:=tstringList.Create;

  flist.Clear;

  EnumWindows(@EnumWindowProc,Integer(fList));

end;

البته همه اینها قبلا در سایت مطرح شده ، اگه جستجو کنید زودتر به نتیجه می رسید.