برنامج دلفي لخط الأوامر الذي يحدد شفافية أي نافذة

يجب دعم SetLayeredWindowAttributes API على الأنظمة أدناه Windows 2000. والمبدأ هو العثور على مقبض النافذة أولاً ثم تعيين خصائص النافذة.

عتامة البرنامج ؛

{$ apptype console}

يستخدم

sysutils ،

النوافذ

var

مقبض ، Astyle: عدد صحيح ؛

يبدأ

يحاول

إذا paramCount <2 ثم

يبدأ

Writeln ('يجب أن "المعلمة") ؛

مخرج؛

نهاية؛

مقبض: = FindWindow (NIL ، PCHAR (paramstr (1))) ؛ // حاليًا ، هو النص للبحث عن Windows ، أو يمكن أن يبحث عن اسم classn

Astyle: = getWindowLong (مقبض ، gwl_exstyle) ؛

setWindowlong (مقبض ، gwl_exstyle ، astyle أو ws_ex_layered) ؛

إذا كان setLayeredWindowAttributes (مقبض ، 0 ، strtoint (paramstr (2)) ، lwa_alpha) ثم

نجح تحديث WriteLn (ParamStr (1)+'إلى'+paramstr (2))

آخر

WriteLn (فشل تحديث Opacity ") ؛

يستثني

Writeln ('خطأ المعلمة') ؛

نهاية؛

نهاية.

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