1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var
  wnd: HWND;
begin
  wnd :=  FindWindow('Progman', 'Program Manager');
  wnd :=  FindWindowEx(wnd, 0, 'SHELLDLL_DefView', nil);
  wnd :=  FindWindowEx(wnd, 0, 'SysListView32', 'FolderView');

  if wnd <> 0 then
  begin
     ShowWindow(wnd,SW_HIDE);
  end;
end;					

1:
2:
3:
4:
5:
6:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if GetAsyncKeystate(VK_CONTROL) <> 0 then    //STRG
   if GetAsyncKeystate(VK_SPACE) <> 0 then   //Leertaste
 //Anweisungen
end;