getporcaddress的例子:这个例子可以使你的窗口为半透明(2k适用)
var
l : longint;
setwin : function (hwnd:HWND;
crKey:Longint;
bAlpha:byte;
dwFlags:longint ):longint;stdcall;
Hbar: Thandle;
ver:integer;//版本号
major:integer;//主版本号
minor:integer;//次版本号
begin
ver := GetVersion();
major := ver and 255;
if major=5 then
//under Windows 2k
begin
l:=getWindowLong(Handle, GWL_EXSTYLE);
l := l Or $80000;
SetWindowLong (handle, GWL_EXSTYLE, l);
try
//SetLayeredWindowAttributes(handle, 0, 182, 2);
Hbar := LoadLibrary('user32.dll');
setwin := GetProcAddress(Hbar,'SetLayeredWindowAttributes');
setwin(handle,0,220,2);
FreeLibrary(Hbar);
except
end;
end;
是什么参数错误?我现在用的是win2k,可能比较难调试。