用易语言写如何隐藏执行一个exe程序例
就用Delphi写吧,用QQ2009举例
我已经试验运行成功
用VCLApplication,然后添加一个Timer控件就可以
程序:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCr...全部
就用Delphi写吧,用QQ2009举例
我已经试验运行成功
用VCLApplication,然后添加一个Timer控件就可以
程序:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *。
dfm}
var
TimeCount: Byte;
procedure TForm1。FormCreate(Sender: TObject);
begin
Timer1。Interval := 1000;
TimeCount := 0;
end;
procedure TForm1。
Timer1Timer(Sender: TObject);
var
QQ2009Handle: HWND;
begin
QQ2009Handle := FindWindow('TXGuiFoundation', 'QQ2009');
if QQ2009Handle <> 0 then
begin
Inc(TimeCount);
Text := IntToStr(TimeCount);
end;
if TimeCount = 7 then
begin
TimeCount := 0;
SetWindowPos(QQ2009Handle, 0, 0, 0, 0, 0, SWP_HIDEWINDOW + SWP_NOMOVE + SWP_NOSIZE);
Timer1。
Interval := 0;
end;
end;
end。
。收起