濡備綍闅愯棌鍜屾樉绀篧indows鐨勪换鍔℃潯
鍙戝竷: 2008-6-26 20:33 | 浣滆: admin | 鏌ョ湅: 14娆
width="84%">濡備綍闅愯棌鍜屾樉绀篧indows鐨勪换鍔℃潯
濡傛灉闅愯棌鍜屾樉绀篧indows鐨勪换鍔℃潯?浠呬粎璋冪敤浠ヤ笅鐨勫嚱鏁板氨鍙互.
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褰撳墠鐨勪复鏃剁洰褰曚綅缃傝繖涓猈indows API鍑芥暟 GetTempPath灏辨槸瑙e喅杩欎釜闂鐨勩傚叾鍑芥暟鍘熷舰涓:
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,濡傛灉鏈塗MP鐜鍙橀噺鍒欎复鏃剁洰褰曚负TMP鎸囧畾鐨勭洰褰
2,濡傛灉娌℃湁TMP鐜鍙橀噺鑰屾湁TEMP鐜鍙橀噺锛屽垯涓篢EMP鍙橀噺鎸囧畾鐨勭洰褰
3,濡傛灉TMP鍜孴EMP閮芥病鏈夊畾涔夛紝鍒欏彇褰撳墠鐩綍涓轰复鏃剁洰褰




发表于 2009-1-5 19:48
| 











