قفل کردن دسکتاپ و باز کردن مجدد آن [بایگانی]

View Full Version : قفل کردن دسکتاپ و باز کردن مجدد آن

desatir7316

دوشنبه 28 دی 1388, 16:40 عصر

سلام
من می خاستم بدونم چطوری میشه روی دسکتاپ کنترل داشت
مثلا طوری قفلش کرد که تا وقتی بازش نکنی کاربر نتونه با هیچ ترفندی از سیستم استفاده کنه

این کد رو می خوام رو واسه تکمیل کردن پروژه پایان ترمم که پروژه کافی نت هست احتیاج داشتم
ممنون می شم اگه کمک کنین

hojjatcroos

دوشنبه 28 دی 1388, 17:40 عصر

یکی از راهاش این هست که هندل دسکتاپ رو به دست بیارید و Enablesh رو فالس کنید.

desatir7316

دوشنبه 28 دی 1388, 19:30 عصر

مرسی دوست عزیز
این قسمتی که گفتی من اصلا اطلاعاتی راجع بهش ندارم
میشه یه مثال بزنید یا یه لینک معرفی کنید
دستت درد نکنه

سعید صابری

دوشنبه 28 دی 1388, 20:06 عصر

شايد اين بدردت بخوره ولي ... نيست.

http://www.dwinlock.kassl.de/download/Kassl-dWinlock-Trial.zip

desatir7316

سه شنبه 29 دی 1388, 00:22 صبح

minair2004 عزیز
ممنون از راهنماییتون ولی من هیچ سر از این کد در نمیارم
راه ساده تری نیست؟
می خوام چیزی باشه که از پس دفاعیش بر بیام
مرسی

UltraZoom

سه شنبه 29 دی 1388, 08:13 صبح

بگو با چی کد زدی
باید خیلی ساده بری و ریجستری رو تغییر بدهی

سعید صابری

سه شنبه 29 دی 1388, 08:16 صبح

minair2004 عزیز
ممنون از راهنماییتون ولی من هیچ سر از این کد در نمیارم
راه ساده تری نیست؟
می خوام چیزی باشه که از پس دفاعیش بر بیام
مرسی

كدهاش در يك dll هستش اگه بتوني سورس dll بدست بياري. ميتوني كدهاش مستقيم استفاده كني

hojjatcroos

سه شنبه 29 دی 1388, 08:42 صبح

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

procedure TForm1.Button1Click(Sender: TObject);
var
h:HWND;
begin
h:=FindWindow('Progman','Program Manager');
h:=FindWindowex(h,0,'SHELLDLL_DefView',nil);
h:=FindWindowex(h,0,'SysListView32','FolderView');
EnableWindow(h,False);
ShowWindow(h,SW_hide)
end;
procedure TForm1.Button2Click(Sender: TObject);
var
h:HWND;
begin
h:=FindWindow('Progman','Program Manager');
h:=FindWindowex(h,0,'SHELLDLL_DefView',nil);
h:=FindWindowex(h,0,'SysListView32','FolderView');
ShowWindow(h,SW_SHOW);
EnableWindow(h,true);
end;