모든 창의 투명성을 설정하는 명령 줄 델파이 프로그램

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