var
Str:TStream;
begin
Str:=TFileStream.Create(‘c:/windows/system32/taskmgr.exe‘,fmOpenWrite);
end;

http://www.cnblogs.com/key-ok/p/3358784.html

使用户打不开任务管理器（真有创意）