📄 hide_app.htm
字号:
<html>
<head>
<title>如何写一个在Win9x、WinNT下通用的“隐身程序”?</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
body { font-size: 9pt}
-->
</style></head>
<body bgcolor="#FFFFFF">
<p align="center"><b><br>
如何写一个在Win9x、WinNT下通用的“隐身程序”?</b><br>
</p>
<p>大家知道,在Win9x下实现很容易,但是在WinNT下就不那么…… <br>
</p>
<p>program Project1;</p>
<p>uses<br>
Forms,<br>
Unit1 in 'Unit1.pas' {Form1},<br>
Windows;</p>
<p>{$R *.RES}</p>
<p>var<br>
ExtendedStyle : Integer;</p>
<p>begin<br>
Application.Initialize;</p>
<p>//============================================================== <br>
ExtendedStyle := GetWindowLong (Application.Handle, GWL_EXSTYLE);</p>
<p> SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW<br>
AND NOT WS_EX_APPWINDOW);<br>
//=============================================================== </p>
<p>Application.CreateForm(TForm1, Form1);<br>
Application.Run;<br>
end. </p>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -