Delphi伪隐藏进程的实现方法及演示源代码,可指定进程在任务栏隐藏5秒或者自定义时间,隐藏ID后在Windows任务管理器中就看不到本进程了,隐藏后用Ctrl Alt Del同样也看不到本程序。测试结束后,可按“恢复”按钮恢复进程的显示。编写本程序时,用到的方法有:GetCurrentProcessID、Timer等。
Delphi7.0按要求生成指定位数编号,自动生成编号,请在文本框中输入编号,编号输入完成后按回车键。以下是完成核心功能的代码:
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
i:integer;
s:string;
begin
S:='';
if key=vk_return then
begin
if length(edit1.Text)>8 then
edit1.Text:=copy(edit1.Text,1,8);
if length(edit1.Text)<8 then
begin
i:=8-length(edit1.Text);
for i:=1 to (8-length(edit1.Text)) do
begin
s:=s '0';
end;
edit1.Text:=trim(s) trim(edit1.Text);
end;
end;
end;
完整实例需要下载本源码。