用易语言写如何隐藏执行一个exe程序

  就用Delphi写吧sxstrace exe qq ，用QQ2009举例

sxstrace exe qq 我已经试验运行成功

用VCLApplicationsxstrace exe qq ，然后添加一个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 *sxstrace exe qq 。

  dfm}

var

TimeCount: Byte;

procedure TForm1sxstrace exe qq 。FormCreate(Sender: TObject);

begin

Timer1sxstrace exe qq 。Interval := 1000;

TimeCount := 0;

end;

procedure TForm1sxstrace exe qq 。

  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);

Timer1sxstrace exe qq 。

  Interval := 0;

end;

end;

endsxstrace exe qq 。

sxstrace exe qq 。