<?xml version="1.0" encoding="gb2312"?>
<rss version="2.0">
<channel>
<title>系统函数</title>
<link>/html/Api/index.html</link>
<description>系统函数</description>
<language>zh-cn</language>
<generator>&lt;a href='mailto:webmaster@delphichm.com'&gt;
Copyright@delphichm,&lt;/a&gt;2006-2009.&lt;br/&gt;All Rights Reserved.&lt;br/&gt;
&lt;script language=&quot;javascript&quot; type=&quot;text/javascript&quot; src=&quot;http://js.users.51.la/1120570.js&quot;&gt;&lt;/script&gt;
</generator>
<webmaster>webmaster@delphichm.com</webmaster>
<item>
    <title>delphi Delphi如何处理UNIX文件存储</title>
    <link>/html/Api/20070719/360.html</link>
    <description>How to detect if an ASCII textfile uses UNIX or Windows linebreaks? 
This function will detect if a textfile is a Windows or UNIX textfile, and while we're at it, let's show two versions of the same function, one beautful and one less beautful. </description>
    <pubDate>2007-07-19</pubDate>
    <category>系统函数</category>
    <author>Stefan Pettersson</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 如何快速读取文本文件</title>
    <link>/html/Api/20070719/359.html</link>
    <description>Does anyone know the fastest way to read large text files (10Mb) into a string. Readln is just too slow.</description>
    <pubDate>2007-07-19</pubDate>
    <category>系统函数</category>
    <author>Tomas Rutkauskas</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 如何判断输入值是否中文</title>
    <link>/html/Api/20070717/352.html</link>
    <description>function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType;

function ByteType(const S: string; Index: Integer): TMbcsByteType;</description>
    <pubDate>2007-07-17</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 如何从剪切板上得到图片文件</title>
    <link>/html/Api/20070703/300.html</link>
    <description>How to copy a bitmap, picture or metafile from the clipboard?</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Maarten de Haan</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 如何注册剪切板的格式</title>
    <link>/html/Api/20070703/299.html</link>
    <description>I want to write raw bytes to the clipboard, but the only functions the TClipboard component offers are SetText, SetAsHandle and SetComponent. Well, I need to set these bytes as a certain format (566 to be exact), so that rules out SetText. SetAsHandl</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Jonas Bilinkevicius</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 切换界面的方法</title>
    <link>/html/Api/20070703/298.html</link>
    <description>Bored? Like playing tricks on your coworkers? I tested it out on my bosses secretary and it was fun, so I'll share it with you. BUT its just not fun, it also contains usefull classes.</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>William Egge</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi CapsLock打开与关闭</title>
    <link>/html/Api/20070703/297.html</link>
    <description>How to turn the CapsLock on and off</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Jonas Bilinkevicius</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 关闭数字键盘</title>
    <link>/html/Api/20070703/296.html</link>
    <description>Using Delphi 5, I'm trying to setup a routine that would automatically turn off the NUMLOCK key when loaded. Assume that I am writing a standalone utility that could be loaded in the startup folder to do this function.</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Jonas Bilinkevicius</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 如何区分键盘两个Enter键</title>
    <link>/html/Api/20070703/295.html</link>
    <description>How to find difference between the two ENTER keys?</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Igor Siticov</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 得到键盘输入的语言</title>
    <link>/html/Api/20070703/294.html</link>
    <description>When my application starts, I need to switch the keyboard language to Greek. Currently I use the statement ActivateKeyboardlayout(0, 0). When I need to switch to English (when the application terminates) I execute the same statement one more time. Th</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Lou Adler</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 在应用层截获键盘消息</title>
    <link>/html/Api/20070703/293.html</link>
    <description>We can migrate old DOS applications to the Windows environment, but frequently we can't migrate the users :)

</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Ernesto De Spirito</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 固定窗体位置</title>
    <link>/html/Api/20070703/292.html</link>
    <description>How to make a form non-moveable</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Tomas Rutkauskas</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 如何截获窗口最大化消息</title>
    <link>/html/Api/20070703/291.html</link>
    <description>How to intercept the maximize command</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Tomas Rutkauskas</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 截获非可视化组件的消息</title>
    <link>/html/Api/20070703/290.html</link>
    <description>Sometimes we need a non-windowed component (i.e. one that isn't derived from TWinControl) to receive Windows messages - but non-windowed component don't have window handles. For example suppose we are developing a non-visual component that register</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Peter Johnson</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 通过消息发送字符到其它应用程序</title>
    <link>/html/Api/20070703/289.html</link>
    <description>How can I e.g. &quot;type&quot; programmatically in another application?</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Udo Nesshoever</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 消息是由谁来发出又由谁来完成</title>
    <link>/html/Api/20070703/288.html</link>
    <description>How can I use Windows Message and what are they?</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Master Tavi</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi BitmapToRegion</title>
    <link>/html/Api/20070703/287.html</link>
    <description>How to convert Windows Bitmaps to Windows Regions very fast. This is the Delphi-like replacement for the BitmapToRegion function. This version is much cleaner, smaller and educational mantaining a high performance. You will also find many interesting</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Felipe Machado</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 显示任何形状的表单</title>
    <link>/html/Api/20070703/286.html</link>
    <description>Wel, this is a hard-coded application, ONLY for people interested in knowing more, it describes another way of doing starnge shaped forms !!</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Abu Zant Ruslan</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi Simple way to rotate region</title>
    <link>/html/Api/20070703/285.html</link>
    <description>Simple function returning rotated region. Pprocedure doing the same with source region.</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Nik Ozniev</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 访问注册表</title>
    <link>/html/Api/20070703/284.html</link>
    <description>How can I simply save and get data from the Windows Registry? The purpose of this article is to introduce GetRegistryData and SetRegistryData as an alternative to TRegistry, making it easy to read and write values from and to the Windows Registry, al</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Ernesto De Spirito</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 如何写二进制文件到注册表</title>
    <link>/html/Api/20070703/283.html</link>
    <description>Can someone explain exactly how to use WriteBinaryData? I've tried several different ways but the output is never what it should be.</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>William Gerbert</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 表单接收拖动的文件</title>
    <link>/html/Api/20070703/282.html</link>
    <description>This way you can drag and drop files to a specific control in a Delphi form</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Pablo Reyes</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 查询工作组中的电脑</title>
    <link>/html/Api/20070703/281.html</link>
    <description>Finding all computers in a workgroup. </description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Erwin Molendijk</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 显示文件属性</title>
    <link>/html/Api/20070703/280.html</link>
    <description>How can I show the property dialog for a file?</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>David Johannes Rieger</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 只允许有一个应用程序</title>
    <link>/html/Api/20070703/279.html</link>
    <description>I use Delphi 6 to make an application. Everytime I run the executable, an instance of my application starts up (of course). Is there any way to detect at runtime if another instance of the same application is running and switch control to the origina</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Jonas Bilinkevicius</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 实时记录事件日志</title>
    <link>/html/Api/20070703/278.html</link>
    <description>I needed a way to be notified in real-time when someone acceded my computer inside an intranet. After doing some research, the solution would pass by using the Security event log that is used when you activate any audit option.</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Fernando Silva</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 清空回收站</title>
    <link>/html/Api/20070703/277.html</link>
    <description>How to empty the recycle bin</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Senn Marco</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi delphi实现服务开启与关闭</title>
    <link>/html/Api/20070703/276.html</link>
    <description>The unit described in this article show how we can start or stop a NT service by programming, or getting the location of its binary implentation.</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Bertrand Goetzmann</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 多层数据访问</title>
    <link>/html/Api/20070703/275.html</link>
    <description>Windows DNA multi-tier: a service-oriented approach</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Alessandro Federici</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 一个很有用的共享连接网络工具</title>
    <link>/html/Api/20070703/274.html</link>
    <description>Ever lost a networked share and didn't know how to connect to it? Well with this component you can search the network for a specific share containing a file or a directory and automatically reconnect to it. </description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Vassilis Perantzakis</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 通过API SSPI登录</title>
    <link>/html/Api/20070703/273.html</link>
    <description>LogonUser() Win API call vs SSPI call</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Mike Heydon</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 不经确认关闭应用程序</title>
    <link>/html/Api/20070703/272.html</link>
    <description>How to kill an application without any confirmation </description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Tomas Rutkauskas</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 如何将一控制台输出到应用程序</title>
    <link>/html/Api/20070703/271.html</link>
    <description>Problem/Question/Abstract: Does anyone have a working example of a GUI application that redirects the screen output from a console application? I've tried it using the CreateProcess API function, however it only works for me when I launch it through</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Jonas Bilinkevicius</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 如何重画Caption Bar</title>
    <link>/html/Api/20070703/270.html</link>
    <description>How to paint into another windows' caption bar Answer: If you can get a handle to a Windows object, generally if it supports a WM_SETTEXT message (most windows do), then you can change the caption. The example below does j</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Jonas Bilinkevicius</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 得到连线用户名称域名主机名</title>
    <link>/html/Api/20070703/269.html</link>
    <description>Problem/Question/Abstract: How to get the name and domain of a logged-in user Answer: In the form's OnClose method, call AnimateWindow. For example, the following call fades out the window: function NetServerGetInfo(serverName: PWideChar; level: Int</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Dennis Passmore</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 通过线程实现Windows服务</title>
    <link>/html/Api/20070703/268.html</link>
    <description>Delphi 56 has a template project for services, but it is incomplete. This example builds on that template and completes the service. It also shows how to start a thread that beeps every 2 seconds. You can use this as a bas</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Kim Sandell</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi 查找局域网机子</title>
    <link>/html/Api/20070703/267.html</link>
    <description>Problem/Question/Abstract: Enumerating workgroups on your LAN. Answer: { This code is a copy-paste from a working application. } var WorkgroupCount: Integer; Workgroup: array[1..500] of string[25]; procedure FindAllWorkgroups; var EnumHandle: THandl</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>Erwin Molendijk</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi using file mapping objects ( Shared Memory )</title>
    <link>/html/Api/20070703/264.html</link>
    <description>How to interprocess between two applicationsin or more Delphi written applications</description>
    <pubDate>2007-07-03</pubDate>
    <category>系统函数</category>
    <author>轶名</author>
    <comments>国外</comments>
</item>
<item>
    <title>delphi Delphi程序输入法自动切换最简单的方式</title>
    <link>/html/Api/20070627/177.html</link>
    <description>程序员只需要将窗体中该输入中文的控件的 imemode=imchinese,然后在每个窗体里 create(或active) 事件里调用本人编写的方法ChangeYouFormAllControlIme(frm)即可.在程序中提供一个用户输入法选项供用户选择自己喜欢的输入法,调用显示FrmImeNameList 窗体即可!总之,程序</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 汉字输入法的编程及使用</title>
    <link>/html/Api/20070627/176.html</link>
    <description>在Delphi 中的Tedit、Tmemo、TmaskEdit等编辑元件在应用程序中经常使用，这三种元件都具有ImeName、ImeMode属性。其中ImeName属性是输入法名称，在对象观察器中对应一个包括当前系统中所有汉字输入法的下拉组合框；ImeMode属性是输入法模式，在对象观察器中也对应一个下</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 关闭当前输入法</title>
    <link>/html/Api/20070627/175.html</link>
    <description>imehandle:=ImmGetDefaultIMEWnd(hwnd);
PostMessage(imehandle,WM_DESTROY,wp,lp); </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 设置系统输入法</title>
    <link>/html/Api/20070627/174.html</link>
    <description>  if not SysLocale.FarEast then Exit;
  if ImeName &lt;&gt; '' then
  begin
    if (AnsiCompareText(ImeName, Screen.DefaultIme) &lt;&gt; 0)
        and (Screen.Imes.Count &lt;&gt; 0) then
    begin
      HandleToSet := Screen.DefaultKbLayout;
      I := Scree</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 中文输入法热键</title>
    <link>/html/Api/20070627/173.html</link>
    <description>    IME file
    layout file
    layout text  ：  该输入法的显示名称，如“王码五笔型”
    至此一切都明白了吗，你设置“王码五笔型”的热键为ALT+3。
    这里你唯一难清楚的是Key Modifiers的值的获取方法，我也没时间
试，最多你在系统中设置不同的方式以</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 获取桌面列表的句柄</title>
    <link>/html/Api/20070627/172.html</link>
    <description>
 function GetDesktopListViewHandle: THandle;
 var
   S: String;
 begin
 Result := FindWindow('ProgMan', nil);
 Result := GetWindow(Result, GW_CHILD);
 Result := GetWindow(Result, GW_CHILD);
 SetLength(S, 40);
 GetClassName(Result, PChar(S</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 隐藏桌面</title>
    <link>/html/Api/20070627/171.html</link>
    <description>This will hide the actual listView that displays the icons.  It will allow right clicks to continue working so a refresh can be done etc... 

TO hide it and disable the right click on the desktop do it like this 

var 
  Handle: THandle; 
</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 把桌面上图标的文字的背景色改为透明</title>
    <link>/html/Api/20070627/170.html</link>
    <description>procedure TForm1.Button1Click(Sender: TObject);

var wnd:HWND;
begin
   Wnd := GetDesktopWindow;
   Wnd := FindWindowEx(Wnd, 0, 'Progman', nil);

   Wnd := FindWindowEx(Wnd, 0, 'SHELLDLL_DefView', nil);

   Wnd := FindWindowEx(Wnd, 0, '</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 设置任务栏位置</title>
    <link>/html/Api/20070627/169.html</link>
    <description>  { get the taskbar handle } 
  hApp := FindWindow('Shell_TrayWnd', ''); 
  if hApp &lt;&gt; 0 then begin 
    if   bOnTop then 
      setWindowPos(hApp,HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE) 
    else 
      setWin</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 改变桌面的背景色</title>
    <link>/html/Api/20070627/168.html</link>
    <description>SendMessage(GetDesktiopListViewHandle, $1001, 0, $ff);//临时的
SetSysColors也可以发变桌面的背景色：
Var
  c1, c2: TCOLORREF;
Begin
  c1:= COLOR_DESKTOP;
  c2:= RGB(192,192,192);
  SetSysColors( 1, c1, c2 );
End;//永久的</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 切换任务条时钟的显示</title>
    <link>/html/Api/20070627/167.html</link>
    <description>hn := FindWindowEx(FindWindowEx(FindWindow('Shell_TrayWnd',nil),0,'TrayNotifyWnd',nil),0,'TrayClockWClass',nil); 

if hn &lt;&gt; 0 then 

  ShowWindow(hn,SW_SHOW);//Hello, again 
</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 在桌面创建无小箭头的快捷方式</title>
    <link>/html/Api/20070627/166.html</link>
    <description>我们如果要在桌面上建立一个快捷方式，我们通常是用IShellLink接口来生成一个.lnk文件。用这种方式创建，我们在桌面上得到的是一个左下方还含有小箭头的图标,右击它，你会看到正常的弹出菜单（含有复制、粘贴等）。但是你看桌面上IE的快捷方式，你会看到它是一个正常的</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 刷新系统桌面</title>
    <link>/html/Api/20070627/165.html</link>
    <description>这条命令应该是最标准的答案，可以用来刷新桌面，同时重读所有的图标。

SHChangeNotify(SHCNE_ASSOCCHANGED, SHCNF_IDLIST, NULL, NULL); 
</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 改变开始按钮位置</title>
    <link>/html/Api/20070627/164.html</link>
    <description>getcursorpos(p);
movewindow(FindWindowEx(FindWindow('Shell_TrayWnd', nil), 0, 'Button', nil),x,y,25,25,true);

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
var
p: tpoint;
begin
  getcursorpos</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 控制壁纸</title>
    <link>/html/Api/20070627/163.html</link>
    <description>用Delphi实现壁纸更换
 
　　在Windows中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在Hkey_Current_User\Control Panel\Desktop的Wallpaper和TileWallpaper 等键值中,只要成功修改了这两个键值,然后发消息给Windows即可更换壁纸。在本例的程序中,</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 控制壁纸</title>
    <link>/html/Api/20070627/162.html</link>
    <description>用Delphi实现壁纸更换
 
　　在Windows中，都是使用注册表对系统数据进行管理,有关壁纸的设置数据保存在Hkey_Current_User\Control Panel\Desktop的Wallpaper和TileWallpaper 等键值中,只要成功修改了这两个键值,然后发消息给Windows即可更换壁纸。在本例的程序中,</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 获得除了任务条的桌面大小</title>
    <link>/html/Api/20070627/161.html</link>
    <description>  SystemParametersInfo(SPI_GETWORKAREA,
                       0,
                       @r,
                       0);
  Memo1.Lines.Add(IntToStr(r.Top));
  Memo1.Lines.Add(IntToStr(r.Left));
  Memo1.Lines.Add(IntToStr(r.Bottom));
  Memo1.Lin</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 隐藏和显示任务条</title>
    <link>/html/Api/20070627/160.html</link>
    <description>procedure HideTaskBar; 
var 
  hApp: HWND; 
  rcWork: TRect; 
begin 
  { get the taskbar handle } 
  hApp := FindWindow('Shell_TrayWnd', ''); 
  if hApp &lt;&gt; 0 then begin 
    { hide taskbar } 
    ShowWindow(hApp, SW_HIDE); 
    { set wo</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 程序缩小为任务右下角的小图标</title>
    <link>/html/Api/20070627/159.html</link>
    <description>　　某些程序运行启动后并不出现在任务条中，而是缩小为任务条右下角的一个小图标，当鼠标移到这个小图标上时会出现一些提示信息、单击该小图标会执行一些特定的操作。便如任务条右下角的小喇叭图标，单击它会弹出一个简单的音量控制条，双击会启动另一个更大的音量控制</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 隐藏开始按钮</title>
    <link>/html/Api/20070627/158.html</link>
    <description>               If GetClassName(Child, C, SizeOf(C)) &gt; 0
                  Then Begin
                         S := StrPAS(C);
                         If UpperCase(S) = 'BUTTON'
                            then begin
                          </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 向任务条添加任务</title>
    <link>/html/Api/20070627/157.html</link>
    <description>AButtonWnd :=CreateWindow( 'button' ,
                       'Caption' ,
                       WS_ChildWindow ,
                       0 ,
                       0 ,
                       75 ,
                       20 ,
                </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 清除系统启动后的桌面</title>
    <link>/html/Api/20070627/156.html</link>
    <description>清除所有桌面ICON；
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explore
新建 DWORD值，名为 NoDesktop，值为 1，搞定。

然后“开始”菜单里没有主要内容：
</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 获得系统任务条句柄</title>
    <link>/html/Api/20070627/155.html</link>
    <description>hTaskbar := FindWindow('Shell_TrayWnd', Nil );</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 使用系统开始菜单失效</title>
    <link>/html/Api/20070627/154.html</link>
    <description>var
  Rgn : hRgn;
begin
 {Hide the start button}
  Rgn := CreateRectRgn(0, 0, 0, 0);
  SetWindowRgn(FindWindowEx(FindWindow('Shell_TrayWnd', nil),
                                       0,
                                      'Button',
 </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 获得任务条属性</title>
    <link>/html/Api/20070627/153.html</link>
    <description>TMydata.cbSize := sizeof (TMydata); 
i := SHAppBarMessage ( ABM_GETSTATE,TMydata ); 
showmessage ( inttostr (i)); 

{ 0: 自动隐藏和总在顶端没设定
1: 总在顶端没设定，自动隐藏设定
2: 总在顶端设定，自动隐藏没设定
3: 总在顶端设定，自动隐藏设定
//</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 启动开始菜单</title>
    <link>/html/Api/20070627/152.html</link>
    <description>Sendmessage(Application.Handle,WM_SYSCOMMAND,SC_TASKLIST,0);</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>秩名</author>
    <comments>笨鱼技术网</comments>
</item>
<item>
    <title>delphi 玩转桌面图标</title>
    <link>/html/Api/20070627/151.html</link>
    <description>首先要对付的是桌面图标那一个个难看的、带有背景色的文字，不仅看上去别扭，还遮住了漂亮的墙纸，一定要去掉它，把它变成透明。其次就是图标的位置，只会傻傻地呆在屏幕的左边，还得我们一个个去拖，真累！给它来点新花样，Please Follow Me！
1、 新建一工程，在 use</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 隐藏桌面图标</title>
    <link>/html/Api/20070627/150.html</link>
    <description>var
hDesktop : THandle;
begin
hDesktop := FindWindow('Progman', nil);
ShowWindow(hDesktop, SW_HIDE);
end;
; </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 判断屏幕保护是否在运行</title>
    <link>/html/Api/20070627/149.html</link>
    <description>BOOL SystemParametersInfo(
  UINT uiAction, // system parameter to query or set
  UINT uiParam,  // depends on action to be taken
  PVOID pvParam, // depends on action to be taken
  UINT fWinIni   // user profile update flag
);

Windows NT 5.0</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 建立键盘鼠标动作纪录与回放</title>
    <link>/html/Api/20070627/143.html</link>
    <description>  if iCode &lt; 0 then //必须将消息传递到消息链的下一个接受单元
  Result := CallNextHookEx(hPlay,iCode,wParam,lParam)
  else if iCode = HC_SYSMODALON then
  canPlay:=0


  else if iCode = HC_SYSMODALOFF then
  canPlay:=1


  else if ((canPlay </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 获取RichEdit当前光标位置</title>
    <link>/html/Api/20070627/142.html</link>
    <description>  Y := SendMessage(RichEdit1.Handle, EM_LINEFROMCHAR,
    RichEdit1.SelStart, 0);
  X := RichEdit1.SelStart -
    SendMessage(RichEdit1.Handle, EM_LINEINDEX, Y, 0);</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 用户选择菜单事件</title>
    <link>/html/Api/20070627/141.html</link>
    <description>procedure WMInitMenu(var msg: TMessage); message WM_INITMENU; </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 自动滚屏幕</title>
    <link>/html/Api/20070627/140.html</link>
    <description>  if Key = VK_F8 then
    SendMessage(Memo1.Handle,  { HWND of the Memo Control }
                WM_VSCROLL,    { Windows Message }
                SB_PAGEDOWN,   { Scroll Command }
                0)             { Not Used }
  else if Key = VK</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 知道Memo每项可显示的行</title>
    <link>/html/Api/20070627/139.html</link>
    <description>  DC := GetDC(Memo.Handle); {Get the memo's device context}
  try
   {Select the memo's font}
    OldFont := SelectObject(DC, Memo.Font.Handle);
    try
      GetTextMetrics(DC, Tm); {Get the text metric info}
      Memo.Perform(EM_GETRECT, 0</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi Delphi的消息处理机制</title>
    <link>/html/Api/20070627/138.html</link>
    <description>在DELPHI 中 可 自 定 义 消 息, 并 可 直 接 处 理 消 息. 这 对 于 那 些 希 望 编 写 自 己 的 构 件(Component), 或 者 希 望 截 获. 过 滤 消 息 的 用 户 来 说 是 必 不 可 少 的. 因 为 编 写 构 件 一 般 要 对 相 应 的 消 息 进 行 处 理. 下 面 就 对Delphi</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 选择复选按钮不激发OnClick</title>
    <link>/html/Api/20070627/137.html</link>
    <description>CB.Perform(BM_SETCHECK, Ord(CheckIt), 0);</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 给控件添加弹出式菜单</title>
    <link>/html/Api/20070627/136.html</link>
    <description>        PopupMenu1.PopupComponent := TComponent(Sender);
        PopupMenu1.Popup(X,Y);</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill </author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi richedit中用鼠标右击定位光标</title>
    <link>/html/Api/20070627/135.html</link>
    <description>       mousePoint.x:=x;
       mousePoint.y:=y;
       atPos:=RichEdit1.Perform(EM_CHARFROMPOS,0,Longint(@mousePoint));
       if ( atPosTextRange.cpMax) then
         RichEdit1.Perform(WM_LBUTTONDOWN, MK_LBUTTON, MakeLong(X, Y));</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 截获非客户区的消息</title>
    <link>/html/Api/20070627/134.html</link>
    <description>  private
     procedure WMNCMOUSEMOVE(var Message: TMessage);
       message WM_NCMOUSEMOVE;</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 运行中拖动一个元件</title>
    <link>/html/Api/20070627/133.html</link>
    <description>在一个新的Form中放入一个Panel，加入如下代码：
procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
    Shift: TShiftState; X, Y: Integer);
const
  SC_DragMove = $F012;  { a magic number }
begin
  ReleaseCapture;
  panel1.per</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 俘获windows关闭的消息</title>
    <link>/html/Api/20070627/132.html</link>
    <description>响应 WM_QUERYENDSESSION 消息
 procedure WMQueryEndSession (var Message: TMessage); message WM_QUERYENDSESSION ; 
如果返回0,表明不能关闭 </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 支持文件拖放的程序</title>
    <link>/html/Api/20070627/131.html</link>
    <description>  inherited;
  memo1.lines.clear;
  {$IFDEF WIN32}
  I:=dragqueryfile(message.wparam,$ffffffff,nil,0);
  {$ELSE}
  I:=dragqueryfile(message.wparam,$ffff,nil,0);
  {$ENDIF}
  caption:=inttostr(i);
  for i:=0 to i-1 do
  begin
    dragqueryfi</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 消息广播</title>
    <link>/html/Api/20070627/130.html</link>
    <description>SendMessage(HWND_BROADCAST, WM_WININICHANGE, 0, LongInt(@S));
</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 截获滚动条消息</title>
    <link>/html/Api/20070627/129.html</link>
    <description>  {Get the min and max range of the horizontal scroll box}
    GetScrollRange(WindowHandle,
                   SB_VERT,
                   TheRangeMin,
                   TheRangeMax);
  {Get the horizontal scroll box position}
    TheRange := </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 使MEMO自动滚动</title>
    <link>/html/Api/20070627/128.html</link>
    <description>memo.Perform(EM_SCROLLCARET, 0, 0 ); </description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 使控件设计时响应消息</title>
    <link>/html/Api/20070627/127.html</link>
    <description>procedure CMDesignHitTest(var Message: TCMDesignHitTest); message CM_DESIGNHITTEST;</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 用WndProc来处理消息</title>
    <link>/html/Api/20070627/126.html</link>
    <description>  if (Message.Msg = CM_MOUSELEAVE) then 
  begin 
    Font.Color := clWindowText; 
    Font.Style := Font.Style - [fsUnderline]; 
  end; 
  if (Message.Msg = CM_MOUSEENTER) then 
  begin 
    Font.Color := clBlue; 
    Font.Style := Font.Styl</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 关闭外部应用程序</title>
    <link>/html/Api/20070627/125.html</link>
    <description>下面给出一段在 Delphi 中关闭“计算器”程序为例： 
var 
HWndCalculator : HWnd; 
begin 
// find the exist calculator window 
HWndCalculator := Winprocs.FindWindow(nil, '计算器'); // close the exist Calculator 
if HWndCalculator &lt;&gt; 0 then 
Send</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 显示密码编辑框中的密码</title>
    <link>/html/Api/20070627/124.html</link>
    <description>　我们在使用Windows时，经常会碰到一些密码编辑框，输入其中的文字都以“＊”显示。现在，有许多共享软件和自由软件都可以实现隐藏密码的正确显示。究竟这是怎样实现的呢！其实，这比较简单，虽然这些信息都以“＊”显示，但其内部还是以当初的字符表示，所以，我们只</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 关闭windowns</title>
    <link>/html/Api/20070627/123.html</link>
    <description>控制WINDOWS的开关：如关闭WINDOWS，重新启动WINDOWS等, ExitWindowsEx(UINT uFlags,DWORD dwReserved);是实现这一功能的API函数
首先定义常数
const
EWX_FORCE=4; //关闭所有程序并以其他用户身份登录
EWX_LOGOFF=0; //重新启动计算机并切换到MS-DOS方式
EWX_REBO</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi API函数开发三原则</title>
    <link>/html/Api/20070627/122.html</link>
    <description>Windows 的API 函 数 是 应 用 程 序 开 发 的 有 力 辅 助 工 具， 对 它 们 的 恰 当 使 用， 可 大 大 增 强 和 改 进 应 用 程 序 与 系 统 打 交 道 的 能 力， 使 自 己 的 程 序 真 正 具 有 底 层 操 作 功 能。 作 为RAD 工 具 的 基 础 代 表，BORLAND DELPHI</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi Win32 API 使用的特殊情况</title>
    <link>/html/Api/20070627/121.html</link>
    <description>我个人认为，Delphi 是当今最好的 Windows 可视化开发工具。
其种种特点令开发如虎添翼。但要想发挥出 Delphi 真正的内含性能比如开发控件，实现一些特殊的功能，就必须直接调用 Win32 API。

Win32 API 主要包含在 Windows95/98/NT/2K 的系统动态连接库中如 Kernel3</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 如何使用API</title>
    <link>/html/Api/20070627/120.html</link>
    <description>DOS下的INT21H对于开发DOS程序很重要，而对于在WINDOWS下开
发程序，了解API函数是很有必要的。元件就像招式，而API函数就好
比内功心法，有了高深的内力，那么学习招式就易如反掌啦。所以，
掌握的API函数越多，你就越可能成为DELPHI高手，甚至WINDOWS编程
高手。</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 在 Delphi 中使用原生 ADO 控制数据库</title>
    <link>/html/Api/20070627/119.html</link>
    <description>1、大家知道 Delphi 对 ADO 接口进行了一番包装后形成了 ADOExpress，我想 Borland 的主要目的还是想与自己的数据敏感控件相连。然而事实上数据敏感控件并不是那么耀眼，如果你希望编出来的程序稍微有点水准的话就别用那玩意；如果你很少使用数据敏感控件，那么 ADOExpr</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 利用线程FTP上传上个目录指定的后缀文件</title>
    <link>/html/Api/20070627/118.html</link>
    <description>function ftpup(mainpath:string;filename:string):Boolean;
var
  search:TSearchRec;
  ret:integer;
  tempfilenamestr:string;</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 通用函数，得到汉字笔画</title>
    <link>/html/Api/20070627/117.html</link>
    <description>  BiHuaTable=
     #10#7#10#10#8#10#9#11#17#14#13#5#13#10#12#15+
     #10#6#10#9#12#8#10#10#8#8#10#5#10#14#16#9+
     #12#12#15#15#7#10#5#5#7#10#2#9#4#8#12#13+
     #7#10#7#21#10#8#5#9#6#13#8#8#9#13#12#10+
     #13#7#10#10#8#8#7#8#7#19#5#4#8#6#9</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi 制作自启动光盘的方法</title>
    <link>/html/Api/20070627/116.html</link>
    <description>open=autorun.exe//autorun.exe是你要运行的文件名字，可能是setup.exe等
icon=autorun.exe//是光盘的图标，可以单独放置一个图标文件，如ico，插入光盘后，原光盘图标将显示为此文件的图标
设置光盘的自动运行特征： 
</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>
<item>
    <title>delphi Delphi中ShellExecute的妙用</title>
    <link>/html/Api/20070627/115.html</link>
    <description>ShellExecute(Handle, 'open', PChar('c:\test\app.exe'), nil, nil, SW_SHOW);
打开记事本，并打开一个文件(系统能识别记事本应用程序的路径，因此我们不必使用绝对路径）
ShellExecute(Handle, 'open', PChar('notepad'), PChar('c:\test\readme.txt'</description>
    <pubDate>2007-06-27</pubDate>
    <category>系统函数</category>
    <author>bill</author>
    <comments>站内</comments>
</item>

</channel>
</rss>
