Start menu

Taskbar, start menu items, start button - Enable/disable

uses : StdCtrls, ExtCtrls, mmsystem, registry


<<<Enabling>>>

var
Hw : HWND;
HBut : HWND;
Wnd : HWND;
begin
ShowWindow(FindWindow('Shell_TrayWnd',nil),
SW_SHOWNA); //taskbar
end;

var
Hw : HWND;
HBut : HWND;
Wnd : HWND;
begin
HW := FindWindow('Shell_Traywnd', nil);
HBut := FindWindowEx(hw, 0, 'Button', nil);
ShowWindow(hBut, SW_SHOW); //start button
end;


var
reg:tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', False);
Reg.deletevalue('NoRun');
reg.closekey; // Run
end;



var
reg:tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', False);
Reg.deletevalue('NoFind');
reg.closekey; // Find
end;


var
reg:tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', False);
Reg.deletevalue('NoClose');
reg.closekey; // Shutdown
end;


<<<Disabling>>>


var
HW : HWND;
HBUT : HWND;
Wnd : HWND;
begin
ShowWindow(FindWindow('Shell_TrayWnd', nil), SW_HIDE); //taskbar
end;


var
HW : HWND;
HBUT : HWND;
Wnd : HWND;
begin
HW := FindWindow('Shell_Traywnd', nil);
  HBut := FindWindowEx(hw, 0, 'Button', nil);
  ShowWindow(hBut, SW_HIDE); // Start button
end;


var
reg:tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.createKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer');
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', true);
Reg.WriteString('NoRun','1');
reg.closekey; // run
end;


var
reg:tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.createKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer');
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', true);
Reg.WriteString('NoFind','1');
reg.closekey; // find
end;


var
reg:tregistry;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.createKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer');
Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Policies\Explorer', true);
Reg.WriteString('NoClose','1');
reg.closekey; // shut down
end;

* Those Find, Run, Shutdown might need a reboot before they show or hide themselves. Find me should u need to do more than that, see my System Administrator to see what i can help u with.