غیر فعال کردن گزینه 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]

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