我这几天有几个好的问题 大家来看看呀！

Question

1　我曾经看到过一个网友用VC写过一个程序能够禁止使用“任务管理器”　　Ctrl+Alt+Del 然后按‘T’
  我想用Delphi实现但是我不会　
　我问过别人　有的用注册表，但我觉得应该有更为简单的技术希望大家赐教！谢谢
2　我想做一个能够搜索指定格式的文件　并且并把正在扫描的文件在Edit1里显示出来　如果找到这种格式的文件就把该文件所在路径填到List1中再次谢谢！！！

Answer 1

2、
procedure TForm1.Button1Click(Sender: TObject);
  //例如：GetFileNames('c:\*.sys',ss);
  //      GetFileNames('c:\*.*',ss);
var
  sr:TSearchRec;
  fr:Integer;
begin
  memo1.Lines.Clear;
  fr:=FindFirst(edit1.text,faAnyFile,sr);
  while fr=0 do
  begin
    if (sr.Attr<>faDirectory) then //and(sr.Name<>'.')and(sr.Name<>'..') then
    begin
      memo1.lines.Add(sr.Name);
    end;
    fr:=FindNext(sr);
  end;
  FindClose(sr);
end;
把文件名和路径放到一个memo中去，楼主自己转换一下吧，很简单，只用两个函数就可以实现楼主的做法了；

Answer 2

Sorry　不好意思　理解错了~~~~~　谢谢