VPF::Прозрачность окон - Форум программистов

DriveSoftware

Дата 7.2.2004, 15:03 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 17.3.2003

Репутация: нет
Всего: 4

Вот такая воть кодярка

но работает тока под NT, как бы сделать проверку, что и под Win9x запускалась, а то ведь даже
не компилиться, как быть? Пишет что нету такой функции, да и откуда ей взяться (под 9x)

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin;

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    SpinEdit1: TSpinEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;
  Hndl : THandle;
  Transp : Byte;


  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

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Hndl := FindWindow( nil, PChar( Edit1.Text ) );
 Transp := StrToIntDef( intToStr(SpinEdit1.Value) , 128 );
 if SetWindowLong(Hndl, GWL_EXSTYLE, GetWindowLong(Hndl, GWL_EXSTYLE) or WS_EX_LAYERED) = 0 then
   ShowMessage('Error');

 if not SetLayeredWindowAttributes(Hndl, 0, Transp, LWA_ALPHA) then ShowMessage('Error');
   beep;
end;

end.

--------------------

Замена стандартным Windows часам

p0s0l

Дата 7.2.2004, 15:57 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Вместо:

Код

 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';

Напиши

Код

var SetLayeredWindowAttributes :  function (
     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;

И перед вызовом SetLayeredWindowAttributes сделай так:
SetLayeredWindowAttributes := GetProcAddress(GetModuleHandle('user32.dll'), PChar('SetLayeredWindowAttributes'));

--------------------

С уважением, г-н Посол.

<Spawn>

Дата 7.2.2004, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64

А можно сначала версию винды проверить:

Код

if Win32Platform = VER_PLATFORM_WIN32_NT then

После чего выполнить или не выполнить код, предложеный p0s0l

Это сообщение отредактировал(а) <Spawn> - 7.2.2004, 16:11

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

DriveSoftware

Дата 7.2.2004, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 17.3.2003

Репутация: нет
Всего: 4

Спасибо, ща попробую

--------------------

Замена стандартным Windows часам

Medved

Дата 9.2.2004, 08:29 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 7209
Регистрация: 15.9.2002
Где: Kazakhstan, Astan a

Репутация: 14
Всего: 154

Когда-то сто лет назад обсуждался вопрос про прозрачность, и как ее сделать. Точно помню, что приводил код, как сделать прозрачные окна под Win98. Поищите.

--------------------

http://extreme.sport-express.ru/
...и неважно сколько падал, важно сколько ты вставал...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »