Printable View
درود
از دوستان کسی میدونه چطور میشه گزینه ShutDown از منوی Start رو غیر فعال کرد؟
(البته این رو هم بگم که خودم یه Procedure نوشتم که این کار رو میکنه ، زمان غیر فعال کردن
مشکلی نداره یعنی به محض اینکه Procedure رو اجرا کنید گزینه ShutDown حذف میشه ، اما برای
فعال کردن بعد از اجرای Procedure حتما یکبار باید Restart بشه تا فعال بشه. - Trickخاصی هم نیست ، یکی از Value های رجیستری رو تغییر میدم -)
ممنون.
لزومی نداره restart کنی با لاگاف کردن هم تغییرات اعمال میشه. البته فکر نمی‌کنم دردی ازت دوا کنه!
میشه این دستور را بزارید اینجانقل قول:
نوشته شده توسط m-khorsandi
کلید زیر رو در رجیستری باز کنید:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion\policies\Explorer
سپس یک مقدار DWORD با نام NoClose ایجاد کنید و مقدار اونو 1 بدید.
اگر کار با رجیستری رو نمیدونید بگید تا کدشو بنویسم.
ممنون میشومنقل قول:
نوشته شده توسط Ehsansh
// 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);
یا حق !!!
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;
بجای NoClose میتونید از مقادیر زیر میتونید استفاده کنید:
'StartmenuLogoff'
'NoUserNameInStartMenu'
'NoRun'
'NoSMHelp'
'NoFind'
'NoStartMenuNetworkPlaces'
'NoSMMyPictures'
'NoStartMenuMyMusic'
از اسمشون هم میشه فهمید کارشون چیه.
موفق باشید.
یکی به ما بگه چه جوری ایمن کد را بنویسیمنقل قول:
نوشته شده توسط Ehsansh
اگر کمی دقت کنید در پست های قبلی هم آقا احسان و هم من استفاده از این کد رو نوشته ایم ...
نقل قول:
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;
این لعیا خانم هم منو به یاد شمس میندازه...!