غیر فعال کردن گزینه ShutDown

[m-khorsandi]

درود

از دوستان کسی میدونه چطور میشه گزینه ShutDown از منوی Start رو غیر فعال کرد؟
(البته این رو هم بگم که خودم یه Procedure نوشتم که این کار رو میکنه ، زمان غیر فعال کردن
مشکلی نداره یعنی به محض اینکه Procedure رو اجرا کنید گزینه ShutDown حذف میشه ، اما برای
فعال کردن بعد از اجرای Procedure حتما یکبار باید Restart بشه تا فعال بشه. - Trickخاصی هم نیست ، یکی از Value های رجیستری رو تغییر میدم -)

ممنون.

[mhjb]

لزومی نداره restart کنی با لاگاف کردن هم تغییرات اعمال میشه. البته فکر نمی‌کنم دردی ازت دوا کنه!

[Laia2005]

درود

از دوستان کسی میدونه چطور میشه گزینه ShutDown از منوی Start رو غیر فعال کرد؟
(البته این رو هم بگم که خودم یه Procedure نوشتم که این کار رو میکنه ، زمان غیر فعال کردن
مشکلی نداره یعنی به محض اینکه Procedure رو اجرا کنید گزینه ShutDown حذف میشه ، اما برای
فعال کردن بعد از اجرای Procedure حتما یکبار باید Restart بشه تا فعال بشه. - Trickخاصی هم نیست ، یکی از Value های رجیستری رو تغییر میدم -)

ممنون.

میشه این دستور را بزارید اینجا

[Ehsansh]

کلید زیر رو در رجیستری باز کنید:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\policies\Explorer
سپس یک مقدار DWORD با نام NoClose ایجاد کنید و مقدار اونو 1 بدید.
اگر کار با رجیستری رو نمیدونید بگید تا کدشو بنویسم.

[Laia2005]

کلید زیر رو در رجیستری باز کنید:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\policies\Explorer
سپس یک مقدار DWORD با نام NoClose ایجاد کنید و مقدار اونو 1 بدید.
اگر کار با رجیستری رو نمیدونید بگید تا کدشو بنویسم.
ممنون میشوم

[Hamid_PaK]

// no uses needs [work with windows unit]

function RegSetValue(RootKey: HKEY; Name: String; ValType: Cardinal; PVal: Pointer; ValSize: Cardinal): boolean;
var
SubKey: String;
n: integer;
dispo: DWORD;
hTemp: HKEY;
begin
Result := False;
n := LastPos('\', Name);
if n > 0 then
begin
SubKey := Copy(Name, 1, n - 1);
if RegCreateKeyEx(RootKey, PChar(SubKey), 0, nil, REG_OPTION_NON_VOLATILE, KEY_WRITE,
nil, hTemp, @dispo) = ERROR_SUCCESS then
begin
SubKey := Copy(Name, n + 1, Length(Name) - n);
Result := (RegSetValueEx(hTemp, PChar(SubKey), 0, ValType, PVal, ValSize) = ERROR_SUCCESS);
RegCloseKey(hTemp);
end;
end;
end;

function RegSetDword(RootKey: HKEY; Name: String; Value: Cardinal): boolean;
begin
Result := RegSetValue(RootKey, Name, REG_DWORD, @Value, SizeOf(Cardinal));
end;

// to set the value use this ...
RegSetDWORD(HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows\Curr entVersion\policies\Explorer\NoClose',
1);



یا حق !!!

[Ehsansh]

Uses Registry;

procedure TfrmMain.Button1Click(Sender: TObject);
var Reg:Tregistry;
begin
Reg.RootKey:=HKEY_CURRENT_USER;
Reg:=TRegistry.Create;
try
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\Explorer);
Reg.WriteInteger('NoClose',1);
Reg.CloseKey;
finally
Reg.Free;
end;

[Ehsansh]

بجای NoClose میتونید از مقادیر زیر میتونید استفاده کنید:
'StartmenuLogoff'
'NoUserNameInStartMenu'
'NoRun'
'NoSMHelp'
'NoFind'
'NoStartMenuNetworkPlaces'
'NoSMMyPictures'
'NoStartMenuMyMusic'
از اسمشون هم میشه فهمید کارشون چیه.
موفق باشید.

[Laia2005]

کلید زیر رو در رجیستری باز کنید:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\policies\Explorer
سپس یک مقدار DWORD با نام NoClose ایجاد کنید و مقدار اونو 1 بدید.
اگر کار با رجیستری رو نمیدونید بگید تا کدشو بنویسم.
یکی به ما بگه چه جوری ایمن کد را بنویسیم

[Hamid_PaK]

اگر کمی دقت کنید در پست های قبلی هم آقا احسان و هم من استفاده از این کد رو نوشته ایم ...





procedure TForm1.Button1Click(Sender: TObject);
begin
// to set the value use this ...
RegSetDWORD(HKEY_LOCAL_MACHINE,
'SOFTWARE\Microsoft\Windows\Curr entVersion\policies\Explorer\NoClose',
1);
end;







procedure TForm1.Button1Click(Sender: TObject);
var
Reg: Tregistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
try
Reg.OpenKey('Software\Microsoft\Windows\CurrentVer sion\Policies\Explorer);
Reg.WriteInteger('NoClose',1);
Reg.CloseKey;
finally
Reg.Free;
end;
end;



یا حق !!!

[Naficy]

این لعیا خانم هم منو به یاد شمس میندازه...!