hide_app.htm

来自「对于学习很有帮助」· HTM 代码 · 共 38 行

HTM

38 行

<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>&nbsp;</p>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

hide_app.htm

hide_app.htm - 源码说明

⌨️ 快捷键说明