怎样让自己的程序运行时,在任务栏上不可见!!!!!!!!!1 怎样让自己的程序运行时,在任务栏上不可见!!!!!!!!!1 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);begin RegisterServiceProcess(GetCurrentProcessID,1);end;procedure TForm1.Button2Click(Sender: TObject);begin RegisterServiceProcess(GetCurrentProcessID,0); //GetCurrentProcessIDend;end. Form1Create中写SetWindowsLong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW) procedure TForm1.FormShow(Sender:TObject);begin ShowWindow(Application.Handle,SW_HIDE);end; SetWindowsLong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW) ShowWindow(Application.Handle,SW_HIDE);隐藏ShowWindow(Application.Handle,SW_SHOW);显示 Form1Create中写SetWindowsLong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW) 求一个类似图片中的控件... 关于指针 救命 rave 问题 困扰 几天 了 跪求 98系统下loadLibrary(dll)程序死掉 【挑战者之一号】菜鸟免进,我怎么在一个1G的文件中间插入一个字符? 怎样使edit不能输入字符? 如何打印webbrowser中的内容 有没有那位大哥做过呼叫中心的项目,近来说说 救命啊,如何打开一个DOS窗口并执行指定的带参数的批处理文件? object pascal的指针好难啊 word 和 数据库 关于Delphi打开foxpro表的问题?
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
function RegisterServiceProcess (dwProcessID, dwType: DWord) : DWord; stdcall; external 'KERNEL32.DLL';
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,1);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
RegisterServiceProcess(GetCurrentProcessID,0); //GetCurrentProcessID
end;end.
SetWindowsLong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)
begin
ShowWindow(Application.Handle,SW_HIDE);
end;
ShowWindow(Application.Handle,SW_SHOW);显示
SetWindowsLong(Application.handle,GWL_EXSTYLE,WS_EX_TOOLWINDOW)