SetLayeredWindowAttributes API는 Windows 2000 아래 시스템에서 지원되어야합니다. 원칙은 먼저 창 핸들을 찾은 다음 창 속성을 설정하는 것입니다.
프로그램 불투명도;
{$ apptype console}
용도
sysutils,
창;
var
손잡이, Asttyle : 정수;
시작하다
노력하다
paramcount <2 인 경우
시작하다
writeln ( '매개 변수 꼭');
출구;
끝;
핸들 : = FindWindow (nil, pchar (paramstr (1)); // 현재, Windows를 찾는 텍스트이거나 ClassName을 찾고있을 수 있습니다.
ASTYLE : = GetWindowLong (핸들, GWL_EXSTYLE);
setwindowlong (핸들, gwl_exstyle, astyle 또는 ws_ex_layered);
SetLayeredWindowAttributes (핸들, 0, strtoint (paramstr (2)), lwa_alpha) 인 경우
Writeln (Paramstr (1)+'업데이트는'+paramstr (2)로 성공했습니다.
또 다른
Writeln ( '불투명 업데이트 실패');
제외하고
Writeln ( '매개 변수 오류');
끝;
끝.
http://blog.csdn.net/redbirdli/archive/2007/02/15/1510602.aspx