请问怎样用DELPHI编个运行时WIN9X看不到的程序,只有最后100分,全给你们了。 只能写在任务栏和按CTRL+ALT+DEL看不见的东东,实现方法,也有答案,检索一下吧,让WIN9X看不见,不可能,除非你用LINUX或其他操作系统 :) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 不要乱用啊!!!!!!!!!!!!uses TLhelp32;type function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';..... SetWindowLong(window,GWL_EXSTYLE,WS_EX_TOOLWINDOW);RegisterServiceProcess(GetCurrentProcessID, 1);..... type function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';...Application.Minimize;RegisterServiceProcess(GetCurrentProcessID, 1);ShowWindow(application.Handle, SW_HIDE);... uses TLhelp32;type function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external 'KERNEL32.DLL';..... SetWindowLong(window,GWL_EXSTYLE,WS_EX_TOOLWINDOW);RegisterServiceProcess(GetCurrentProcessID, 1);..... procedure TForm1.FormCreate(Sender: TObject);var style : integer;begin style := GetWindowLong(Application.Handle, GWL_EXSTYLE ); style := style or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW; SetWindowLong(Application.Handle, GWL_EXSTYLE, style ); RegisterServiceProcess(GetCurrentProcessID, 1); ShowCursor(False); end; procedure TForm1.FormCreate(Sender: TObject);var style : integer;begin style := GetWindowLong(Application.Handle, GWL_EXSTYLE ); style := style or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW; SetWindowLong(Application.Handle, GWL_EXSTYLE, style ); RegisterServiceProcess(GetCurrentProcessID, 1); end; 你说的是按Ctrl+Alt+Del看不见,还是要个透明窗口呢? 你说的是按Ctrl+Alt+Del看不见,还是要个透明窗口呢? E-mail:[email protected] 自己定义消息的循环,GetMessage,使用大的case选择并且使用RegisterServiceProcess如果你不怕麻烦的话!自己分发消息记住别忘了分发程序的结束消息WM_DESTROY。 想做一个程序,实现思路也没,请大家指点下 对数计算错误,请进来看看 请问:专业安装程序制作软件 InstallShield 的最新版是多少————在线等待!!! 有关文件加密与文件夹加密的程序怎么编? 用动态查询时,报表只显示一条记录,为何! 那些动画窗体都是怎么做的?类似迅雷或者QQ的界面 如何取得系统字体大小的列表,我想做一个选字体大小的下拉框? 在EXCEL中怎样把自己编制的宏程序,加载成EXCEL的菜单。 有关DELPHI 更改用户信息 的错误 为什么出这种错? 能提供加密解蜜的例子吗? 向导问题及数据库密码问题!
uses
TLhelp32;
type
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall; external 'KERNEL32.DLL';
.....
SetWindowLong(window,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
RegisterServiceProcess(GetCurrentProcessID, 1);
.....
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall; external 'KERNEL32.DLL';
...
Application.Minimize;
RegisterServiceProcess(GetCurrentProcessID, 1);
ShowWindow(application.Handle, SW_HIDE);
...
TLhelp32;
type
function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer;
stdcall; external 'KERNEL32.DLL';
.....
SetWindowLong(window,GWL_EXSTYLE,WS_EX_TOOLWINDOW);
RegisterServiceProcess(GetCurrentProcessID, 1);
.....
var
style : integer;
begin
style := GetWindowLong(Application.Handle, GWL_EXSTYLE );
style := style or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;
SetWindowLong(Application.Handle, GWL_EXSTYLE, style );
RegisterServiceProcess(GetCurrentProcessID, 1);
ShowCursor(False);
end;
var
style : integer;
begin
style := GetWindowLong(Application.Handle, GWL_EXSTYLE );
style := style or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW;
SetWindowLong(Application.Handle, GWL_EXSTYLE, style );
RegisterServiceProcess(GetCurrentProcessID, 1);
end;