如何讓應用程序服務器可執行文件運行時不顯示?(5分)

  • 主题发起人 主题发起人 秋日
  • 开始时间 开始时间

秋日

Unregistered / Unconfirmed
GUEST, unregistred user!
我是用的多層次結構編程,但不知如何將應用程序服務器可執行文件在運行時不顯示呢?(既不顯示在桌面上,也不顯示在任務欄中,只讓這個文件在內存中運行,而不讓用戶看見任何東西!)
 
ShowWindow(Application.Handle, SW_HIDE);
SetWindowLong(Application.Handle, GWL_EXSTYLE,GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW);
 
to hxy2002:
這兩個語句放在哪裏呀?我把它放在應用程序服務器程序主form的oncreate和onactive事件中都試過了,都不能實現!
 
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
function RegisterServiceProcess(dwProcessID,dwType: Integer): Integer; stdcall; external

'KERNEL32.DLL';

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowLong(Application.Handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
RegisterServiceProcess(GetCurrentProcessID,1);
end;
end.
另外在dpr里面的Application.CreateForm(TForm1, Form1);后面加上
Application.ShowMainForm := False;

 
to hxy2002:
 
to hxy2002:
按你上面的方法我試過了,還是沒有任何效果,不知是不是還有其它方法?
 
这只能在win98里面可以隐藏的。
你是在win2000下吗?
不然可以把原代码发给你。
你的信箱是多少?
 
TO hxy2002:
我是在WIN2000下,你能把在WIN2000下的代碼發EMAIL給我嗎?
 
后退
顶部