Delphi - Win32 API | Delphi | ФОКУС-раствориться в воздухе.

hasherfrog · Конфигурация компьютера

Насколько я знаю, такое вообще невозможно без GDI+.
Т.е. нужен windows XP.

pva · Отправлено: **13:26, 07-11-2005** | #3

Достаточно Windows 2000.
Чтобы работало в windows 9x, NT4.0 и меньше, нужно ручками постараться:
Корпируешь содержимое экрана в память, суммируешь с картинкой и покадрово штампуешь обратно.
Чтобы работало при наличии DirectX 5 и выше, можно ручками не писать.

Mavlyudov · Отправлено: **00:08, 08-11-2005** | #4

А как насчет этого. Нельзя ли это и для winapi применить?

................
const
LWA_ALPHA = $00000002;
WS_EX_LAYERED = $00080000;

var
LayeredWndAttr:Pointer=@SetLayeredWindowAttributes;

procedure TForm1.FormCreate(Sender: TObject);
begin
I :=50; // Устанавлевает уровнь прозрачности от 0 до 100
LayeredWndAttr := GetProcAddress(GetModuleHandle('user32.dll'),'SetLayeredWindowAttributes');
SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, RGB(0, 0, 0), Round(I * 255 div 100), LWA_ALPHA);
end;

hasherfrog · Конфигурация компьютера

Хм, вон оно Вы как хотите...
Ну тогда (я, впрочем, могу ошибаться) есть два замечания:
1. Цвет, который станет "прозрачным", описывается у Вас RGB(0, 0, 0) - т.е. "чёрный". Остальные цвета не изменятся. Впрочем, прверить надо...
2. Всё это нужно делать не в FormCreate, а где-то ещё, потому что постоянно придётся апдейтить уже показанное окно путём вызова UpdateLayeredWindow.

Mavlyudov · Отправлено: **11:48, 08-11-2005** | #6

Да, ты и не сможешь в Form.Create winapi пишешь.
Яс создал окно (Createwindow) и попробовал для него такую вещь вставить, которая выше написана. Не работает. Может кто знает почему.

pva · Отправлено: **10:18, 14-11-2005** | #7

Какая винда? Которое место и какую ошибку выдаёт?

Mavlyudov · Отправлено: **17:18, 14-11-2005** | #8

pva, попробуй совместить Код для создания окна (с CreateWindow) и
вот это:

const
LWA_ALPHA = $00000002;
WS_EX_LAYERED = $00080000;

var
LayeredWndAttr:Pointer=@SetLayeredWindowAttributes;

procedure TForm1.FormCreate(Sender: TObject);
begin
I :=50; // Устанавлевает уровнь прозрачности от 0 до 100
LayeredWndAttr := GetProcAddress(GetModuleHandle('user32.dll'),'SetLayeredWindowAttributes');
SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_LAYERED);
SetLayeredWindowAttributes(Handle, RGB(0, 0, 0), Round(I * 255 div 100), LWA_ALPHA);
end;

pva · Отправлено: **13:24, 16-11-2005** | #9

Сразу замечу:
1. Возможно SetWindowLong(..., GWL_EXSTYLE, ...) не сработает, т.к. не все стили можно менять после создания окна
Можно попробовать врезаться в CreateWndParams.
2. Round(...) здесь лишнее (какой смысл округлять целое число?)
Результаты принесу в пятницу

pva · Отправлено: **08:59, 18-11-2005** | #10

Всё работает (Windows XP Prof. SP1, Delphi4, P-IV 1600),
Правда пришлось немного переписать, чтобы компилятор принял.

Код:

procedure TForm1.FormCreate(Sender: TObject);
type
   TLayeredWndAttr = function(hwnd:integer; color:integer; level:integer; mode:integer): Integer; stdcall;
const
   LWA_ALPHA = $2;
   WS_EX_LAYERED = $80000;
var
   LayeredWndAttr: TLayeredWndAttr;
   i : integer;
begin
   i := 50;
   LayeredWndAttr := GetProcAddress(GetModuleHandle('user32.dll'),
                  'SetLayeredWindowAttributes');

   SetWindowLong(Handle, GWL_EXSTYLE, WS_EX_LAYERED);
   LayeredWndAttr(HANDLE, RGB(0,0,0), i*255 div 100, LWA_ALPHA);
end;