如果隐藏和显示Windows的任务条?仅仅调用以下的函数就可以.
procedure hideTaskbar; //隐藏 var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], 'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_HIDE); End;
procedure showTaskbar; var wndHandle : THandle; wndClass : array[0..50] of Char; begin StrPCopy(@wndClass[0], 'Shell_TrayWnd'); wndHandle := FindWindow(@wndClass[0], nil); ShowWindow(wndHandle, SW_RESTORE); end;
如何取得Windows的临时文件目录?(适合版本:Delphi 3,2.0,1.0) Windows 95 & NT都指定了放置临时文件的目录,然而,用户能改变临时目录的位置而不使用缺省的目录。这篇文章的目的是告诉你如何得到Windows 95 & NT当前的临时目录位置。这个Windows API函数 GetTempPath就是解决这个问题的。其函数原形为: DWORD GetTempPath(DWORD nBufferLength, LPTSTR lpBuffer); 下面的例子示范如何使用: function GetTempDirectory: String; var TempDir: array[0..255] of Char; begin GetTempPath(255, @TempDir); Result := StrPas(TempDir); end; 备注:临时目录的确定原则: 1,如果有TMP环境变量则临时目录为TMP指定的目录 2,如果没有TMP环境变量而有TEMP环境变量,则为TEMP变量指定的目录 3,如果TMP和TEMP都没有定义,则取当前目录为临时目录
(编辑:aniston)
|