主页
Top.Mail.Ru Yandeks.Metrika
论坛:“WinAPI”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

向下

win2k的透明度 找到类似的分支


Vladimir Bolotin   (2002-01-10 20:33) [0]

我在哪里可以阅读有关SetLayeredWindowAttributes的内容? 在旧
win32 API参考和在6m MSDNe中此API尚未描述.. :(



Макс Черных   (2002-01-10 21:12) [1]

似乎http://msdn.microsoft.com尚未关闭:)



Vladimir Bolotin   (2002-01-11 00:38) [2]

非常感谢!



Andrew!   (2002-02-20 10:58) [3]

primerchik可以抛弃某人,否则我使用此功能的工作不起作用,它只是被忽略了。



[NIKEL]   (2002-02-20 11:07) [4]

在Windows2000中,有一个SetLayeredWindowAttributes,这是它​​的一个使用示例:

unit Win2k;
interface
uses Graphics, Windows;

function SetLayeredWindowAttributes(
hwnd : HWND; // handle to the layered window
crKey : TColor; // specifies the color key
bAlpha : byte; // value for the blend function
dwFlags : DWORD // action
): BOOL; stdcall;

function SetLayeredWindowAttributes; external "user32.dll";
implementation

end.

program WinLayer;

uses
Windows, SysUtils,
Win2k in "Win2k.pas";

const
WS_EX_LAYERED= $80000;
LWA_COLORKEY = 1;
LWA_ALPHA = 2;

var
Hndl : THandle;
Transp : Byte;

begin
Writeln("Windows2000 Layer <- build by AK ->");
Writeln(" Usage: WINLAYER.EXE [window name] [Transp (0-255)]");
Writeln(" Example: WINLAYER "Calculator" 200");
Writeln;

if ParamCount <> 2 then exit;

Hndl := FindWindow(nil, PChar(ParamStr(1)));
Transp := StrToIntDef(ParamStr(2), 128);

if SetWindowLong(Hndl, GWL_EXSTYLE, GetWindowLong(Hndl, GWL_EXSTYLE) or WS_EX_LAYERED) = 0 then
Writeln("Error !");

if not SetLayeredWindowAttributes(Hndl, 0, Transp, LWA_ALPHA) then
// ^^^ степень прозрачности
// 0 - полная прозрачность
// 255 - полная непрозрачность
Writeln("Error !");
end.




VuDZ   (2002-02-20 12:46) [5]

需要做这样的事情:

LONG l = GetWindowLong(hwnd, GWL_EXSTYLE);
l = l | WS_EX_LAYERED; // логиеское ИЛИ
SetWindowLong(hwnd, GWL_EXSTYLE, l);
SetLayeredWindowAttributes(hwnd, 0, it->second, LWA_ALPHA);



Olgerd   (2002-02-20 17:16) [6]

看一下prog窗口操纵器。
http://freeware.ru/program.pl?prog_id=3755
我可以抛弃它。



Страницы: 1 整个分支

论坛:“WinAPI”;
当前存档:2002.04.25;
下载:[xml.tar.bz2];

楼上





内存:0.56 MB
时间:0.02 c
1-80919
A-扫描
2002-04-15 10:39
2002.04.25
如何拦截<b> GetCursorPos()</ b>功能


1-80862
Vinivor
2002-04-11 12:10
2002.04.25
为什么不工作?


3-80821
Yuri btr
2002-04-05 12:12
2002.04.25
模块idsql32.dll中的访问冲突


1-80841
AlexP
2002-04-12 19:54
2002.04.25
那么,从哪里来?


1-80967
DenKop
2002-04-11 13:35
2002.04.25
发布另一个程序。





南非荷兰语 阿尔巴尼亚人 阿拉伯语 亚美尼亚 阿塞拜疆 巴斯克 白俄罗斯 保加利亚语 加泰罗尼亚 简体中文 中国(繁体) 克罗地亚 捷克 丹麦语 荷兰人 英语 爱沙尼亚语 菲律宾人 芬兰 法语
加利亚西语 格鲁吉亚语 德语 希腊语 海地克里奥尔语 希伯来语 印地语 匈牙利 北日耳曼语 印度尼西亚人 爱尔兰语 意大利语 日本 韩语 拉脱维亚 立陶宛 马其顿 马来语 马耳他语 挪威语
波斯语 波兰语 葡萄牙语 罗马尼亚 俄语 塞尔维亚 斯洛伐克 斯洛文尼亚 西班牙语 斯瓦希里 瑞典语 泰国人 土耳其 乌克兰 乌尔都语 越南人 威尔士语 意第绪语 孟加拉 波斯尼亚
宿务 世界语 古吉拉特语 豪萨语 苗族 伊博 爪哇 卡纳达语 高棉 老挝 拉丁语 毛利 马拉 蒙古人 尼泊尔 旁遮普 索马里 淡米尔文 泰卢固语 约鲁巴语
祖鲁
英文 Французский Немецкий Итальянский Португальский 俄文 Испанский