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;

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