Включение или отключение компонентов Windows

[falsebegin]

драстуйте можно ли отключить компонентов Windows через delphi?

пример хочу отключить Платформа гаджетов Windows по нажатию button1 https://yadi.sk/i/PAwzyxRC63N77A дайте коды если есть такое и на других компонентов ?

[beegl]

Сообщение от falsebegin

хочу отключить

надо знать, где это в реестре, .. например, отключить CTRL+ALT+DELETE Win XP используя реестр

procedure DisableTaskMgr(bTF: Boolean);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;

  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);

  if bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
  reg.CloseKey;
end;

// Example Call:

procedure TForm1.Button1Click(Sender: TObject);
begin
  DisableTaskMgr(True);
end;

[falsebegin]

ну хоть через реестр

[beegl]

Это может быть сделано и с помощью функции FindWindow.

procedure TForm1.Button2Click(Sender: TObject);
var
blah: hwnd;
begin
blah := FindWindow('NotePad', nil);
SendMessage(blah, WM_SETTEXT, 0, LongInt(PChar('Hello')));
end;

вот так:

procedure TForm1.Button1Click(Sender: TObject);
var
  hOldCaption : string;
  ParentWnd, ChildWnd : HWND;
begin
   hOldCaption := 'Test Exe';

   ParentWnd := FindWindow(nil, PChar(hOldCaption));
   if(ParentWnd = 0) then
   begin
      ShowMessage('No windows found!'); exit;
   end;
   ChildWnd:=FindWindowEx(ParentWnd, 0,'TButton', nil);
   if ChildWnd <> 0 then
      SendMessage(ChildWnd, BM_CLICK, 0, 0)
   else
      ShowMessage('No child window found!');
end;

[beegl]

Сообщение от falsebegin

через реестр

uses Registry, ShellApi, TlHelp32;

function StopProcess(ExeFileName: string) : Integer;
const
  PROCESS_TERMINATE = $0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result:=0;
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
      UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
      UpperCase(ExeFileName))) then
      Result:=Integer(TerminateProcess( OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID), 0));
     ContinueLoop:=Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

//Show all Gadgets
procedure TForm1.Button1Click(Sender: TObject);
var Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Sidebar\Settings', True) then
    begin
      Reg.WriteBool('ShowGadgets', True);
      Reg.CloseKey;
    end;
  Reg.Free;
ShellExecute(self.Handle, 'Open', 'sidebar.exe', nil, nil, SW_SHOWNORMAL);
end;

//Close down One by one Gadget
procedure TForm1.Button2Click(Sender: TObject);
var h: THandle;
    Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Sidebar\Settings', True) then
    begin
      Reg.WriteBool('ShowGadgets', False);
      Reg.CloseKey;
    end;
  Reg.Free;
h:=FindWindow('BasicWindow', nil);
SendMessage(h, WM_CLOSE, 0, 0);
end;

// Close all Gadgets at once
procedure TForm1.Button3Click(Sender: TObject);
var   Reg: TRegistry;
begin
  Reg:=TRegistry.Create;
  Reg.RootKey:=HKEY_CURRENT_USER;
  if Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Sidebar\Settings', True) then
    begin
      Reg.WriteBool('ShowGadgets', False);
      Reg.CloseKey;
    end;
  Reg.Free;
  StopProcess('sidebar.exe');
end;

[falsebegin]

хмм добавил код реестра вроде все компилируется но когда нажимаю кнопку ничего не происходит гаджет не проподает

[beegl]

не могу протестировать, у меня Windows XP SP3

P.S. я особо не знающий, мне там ответили

[falsebegin]

windows 7 64 бит Версия DElphi XE7