⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 00401.htm

📁 提供了Delphi编程的几个巧妙用法
💻 HTM
字号:
🔍 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>1</title>
</head>

<body bgcolor="#000000" text="#FFFFFF" link="#FFFFFF">

<p align="left"><span style="BACKGROUND-COLOR: #ff0000"><a href="00401.zip">源程序下载</a></span><b><span style="background-color: #000080"><br>
</span><span style="background-color: #000000">
<br>
</span><span style="background-color: #000080">
<a name="1"></a>
1：如何添加桌面的快捷<br>
</span></b>   
<span style="background-color: #000000">   
<br>
</span>　　在Uses里面，添加ShlObj, ActiveX, ComObj这三个单元，就可以了，在这个例子里面，添加的是计算器的快捷方式。<br>     
procedure TForm1.Button1Click(Sender: TObject);<br>     
var<br>     
&nbsp;&nbsp;&nbsp; tmpObject : IUnknown;<br>     
&nbsp;&nbsp;&nbsp; tmpSLink : IShellLink;<br>     
&nbsp;&nbsp;&nbsp; tmpPFile : IPersistFile;<br>     
&nbsp;&nbsp;&nbsp; PIDL : PItemIDList;<br>     
&nbsp;&nbsp;&nbsp; StartupDirectory : array[0..MAX_PATH] of Char;<br>     
&nbsp;&nbsp;&nbsp; StartupFilename : String;<br>     
&nbsp;&nbsp;&nbsp; LinkFilename : WideString;<br>     
begin<br>     
&nbsp;&nbsp;&nbsp; StartupFilename := 'c:\windows\Calc.exe';<br>     
&nbsp;&nbsp;&nbsp; tmpObject := CreateComObject(CLSID_ShellLink);<br>     
&nbsp;&nbsp;&nbsp; tmpSLink := tmpObject as IShellLink;<br>     
&nbsp;&nbsp;&nbsp; tmpPFile := tmpObject as IPersistFile;<br>    
&nbsp;&nbsp;&nbsp; tmpSLink.SetPath(pChar(StartupFilename));<br>    
&nbsp;&nbsp;&nbsp;     
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     
SHGetSpecialFolderLocation(0,<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     
CSIDL_DESKTOPDIRECTORY,<br>    
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;     
PIDL);<br>    
&nbsp;&nbsp;&nbsp; SHGetPathFromIDList(PIDL, StartupDirectory);<br>    
&nbsp;&nbsp;&nbsp; LinkFilename := StartupDirectory + '\计算器.lnk';<br>    
&nbsp;&nbsp;&nbsp; tmpPFile.Save(pWChar(LinkFilename),FALSE);<br>   
end;<b><span style="background-color: #000080"><br>   
</span><span style="background-color: #000000">   
<br>   
</span><span style="background-color: #000080">   
<a name="2"></a>  
2：写一个在Winx、WinNT通用的“隐身程序”<br>  
</span></b>     
<span style="background-color: #000000">    
<br> 
</span>　　再program里面添加一个Windows单元，同时定义一个ExtendedStyle : Integer，把Application.Initialize;和 Application.CreateForm(TForm1, Form1);之间加上下面两句话ExtendedStyle := GetWindowLong(Application.Handle,     
GWL_EXSTYLE);SetWindowLong(Application.Handle, GWL_EXSTYLE, ExtendedStyle OR WS_EX_TOOLWINDOW<br>     
                AND NOT WS_EX_APPWINDOW);就能让你的程序隐身。<br>    
<b><span style="background-color: #000000"><br>    
</span><span style="background-color: #000080">    
<a name="3"></a>   
3：屏蔽系统键<br>   
</span></b>      
<span style="background-color: #000000">     
<br>  
</span>　　下面两句话就可以屏蔽系统键<br>
&nbsp;&nbsp;&nbsp; SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @tmp, 0); //屏蔽 Alt-Tab<br>     
&nbsp;&nbsp;&nbsp; SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @tmp, 0); //屏蔽 Ctrl-Alt-Del　　<br>
<br>
　　下面两句话就又可以打开系统键<br>
&nbsp;&nbsp;&nbsp; SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, @tmp, 0); //打开 Alt-Tab<br>     
&nbsp;&nbsp;&nbsp; SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @tmp, 0); //打开 Ctrl-Alt-Del　　<br>
<span style="background-color: #000000">
<br>  
</span>  
<span style="background-color: #FF0000"><a href="00401.zip">源程序下载</a></span>   
</p> 
 
</body>   
   
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -