一個設置任意窗口透明度的命令行Delphi程序

必須是在Windows2000以下的系統才支持SetLayeredWindowAttributes這個API,原理就是先找到窗口句柄,然後設置窗口屬性

program opacity;

{$APPTYPE CONSOLE}

uses

SysUtils,

Windows;

var

handle,AStyle:integer;

begin

try

if ParamCount<2 then

begin

Writeln('parameter must');

exit;

end;

handle:=findwindow(nil,pchar(ParamStr(1)));//目前是找窗口的Text,也可以是找ClassName

AStyle := GetWindowLong(Handle, GWL_EXSTYLE);

SetWindowLong(Handle, GWL_EXSTYLE, AStyle or WS_EX_LAYERED);

if SetLayeredWindowAttributes(Handle, 0, strtoint(ParamStr(2)),LWA_ALPHA) then

Writeln(ParamStr(1)+' update successed to '+ParamStr(2))

else

Writeln('Opacity update failed');

except

Writeln('parameter error');

end;

end.

http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx

 
在WEB程序中設置個性化,容錯提示窗口
首先設計一個容錯提示的窗口圖像爲如下:關鍵HTML文本如下:“原因:<%=content[Int32.Parse(Request.QueryString["ms"])]%>”然後在代碼編輯窗口中添加如下不分:public class WebForm1 : System.W...查看完整版>>在WEB程序中設置個性化,容錯提示窗口
 
在WEB程序中設置個性化,容錯提示窗口
首先設計一個容錯提示的窗口圖像爲如下:關鍵HTML文本如下:“原因:<%=content[Int32.Parse(Request.QueryString["ms"])]%>”然後在代碼編輯窗口中添加如下不分:public class WebForm1 : System.W...查看完整版>>在WEB程序中設置個性化,容錯提示窗口
 
怎樣編寫一個類Spy++的搜索窗口程序
怎樣編寫一個類Spy++的搜索窗口程序 湛江海洋大學 計算機系2000軟件5班 http://hosen.yeah.net 大家都用過Vc自代的工具Spy++,它可以通過鼠標來捕...查看完整版>>怎樣編寫一個類Spy++的搜索窗口程序
 
Delphi 程序窗口動畫及正常排列平鋪的實現
注:此文已有更好的方法,稍後發布2004年9月16日   Delphi的確是功能非常強的RAD工具,所以我下面要說的不算是“缺陷”的一個小問題絲毫不會影響它在程序員心目中的地位,相反,大家會發現,它的確是不愧...查看完整版>>Delphi 程序窗口動畫及正常排列平鋪的實現
 
在DELPHI程序中自動設置ODBC數據源
摘要:在DELPHI程序中自動設置ODBC數據源在DELPHI數據庫應用程序中,我們訪問數據庫通常有兩種方法.一種是通過BDE數據庫搜索引擎,即利用DELPHI自帶的數據庫驅動程序,這種方法的優點是速度快,但應用範圍有限,當數...查看完整版>>在DELPHI程序中自動設置ODBC數據源