?? 00401.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>
tmpObject : IUnknown;<br>
tmpSLink : IShellLink;<br>
tmpPFile : IPersistFile;<br>
PIDL : PItemIDList;<br>
StartupDirectory : array[0..MAX_PATH] of Char;<br>
StartupFilename : String;<br>
LinkFilename : WideString;<br>
begin<br>
StartupFilename := 'c:\windows\Calc.exe';<br>
tmpObject := CreateComObject(CLSID_ShellLink);<br>
tmpSLink := tmpObject as IShellLink;<br>
tmpPFile := tmpObject as IPersistFile;<br>
tmpSLink.SetPath(pChar(StartupFilename));<br>
tmpSLink.SetWorkingDirectory(pChar(ExtractFilePath(StartupFilename)));<br>
SHGetSpecialFolderLocation(0,<br>
CSIDL_DESKTOPDIRECTORY,<br>
PIDL);<br>
SHGetPathFromIDList(PIDL, StartupDirectory);<br>
LinkFilename := StartupDirectory + '\計算器.lnk';<br>
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：屏蔽系統(tǒng)鍵<br>
</span></b>
<span style="background-color: #000000">
<br>
</span> 下面兩句話就可以屏蔽系統(tǒng)鍵<br>
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, @tmp, 0); //屏蔽 Alt-Tab<br>
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @tmp, 0); //屏蔽 Ctrl-Alt-Del <br>
<br>
下面兩句話就又可以打開系統(tǒng)鍵<br>
SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, @tmp, 0); //打開 Alt-Tab<br>
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 + -