怎样让自己的程序运行时,在任务栏上不可见!!!!!!!!!1
解决方案 »
- 关于程序运行权限问题
- 请教一个线程同步的问题(主线程能不能用临界区?)
- 如何去掉cxgrid中被选中的记录的背景颜色?请各位高手请点一下小弟!谢谢!!!
- ListView如何使用Combobox?
- 问题
- 我把对像挂到TList。请问一下我调用Delete时,是删了对像吗?
- 在用PRINTER对象打印时,显示的时候用Canvas对象,如何进行缩放操作,
- 在线等!有满意答案就散分!!!请各位大虾帮忙
- 为什么用ADOQUERY后,在DBGRID中用INSERT插入数据后记录却跑到了最后?
- 一大堆整数型变量可否同时归零?如:a,b,c:=0;否则要:a:=0;b:=0;c:=0;太麻烦了。不会是Borland的失误吧?
- 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)