| Понятие программирование, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
C помощью TQuery добвить запись Как скопировать файл Коммандная строка Объекты в ControlBar и CoolBar, Прорисовка объектов ADO, кеширование, Как правильно организовать работу? ADO Provider=VFPOLEDB, Советую обновить vfpoledb.dll Быстрый поиск по ListBox Treeview Диски, Диски Объём видеопамяти Метод FindKey и TQuery, помогите найти аналог Не найдена таблица Вызов 16-битной функции Delphi + MySQL, Работа с базой MySQL Создание БД! C++ & Delphi Есть ли разница в порядке $L модулей,, библиотеки LIB из С++ в Delphi Xml и еже с ним, Вопрос по обработке XML Запеленговать сниффер Список алиасов ORACLE подключение к сокету Несовместимость типов Создание таблицы Создаю динамически TEdit.Как к нему обратиться, имя я делаю составным (normvr+'k'). Создание RPG!!!, Приглашаю всех к сотрудничеству! GetMessage ?, как она работает? Проверка каталога Полноэкранный режим InterBase и Delphi, как узнать существует процедура или нет? OLE for Process Control, принципы написания OPC Создание объектов TMonthCalendar, OnGetMonthInfo Delphi 7 Обращение к окну другого приложения Crystal Report 8.5, Crystal Report 8.5 Интерфейс утечка памяти, работа с файлами Отловить нажатие клавиши, и не отдать его другим приложениям Работа с TMemo для Win98, Error: text exceed memo capacity Пути Запуск Exe из нестандартного положения, (наверное бред) SpeedButton в Delphi5.0 DBGridEh, маркеры сортировки и работа с колонками Как Вы относитесь к курящим девушкам? Создание системного сервиса, Необходимо написать сист.сервис Сравнение двух динамич массивов String! Странные точки. UpdateMode для подчиненной таблице, DbExpress Delphi DbExpress инфа Чтение Printer.Canvas, ??? Как узнать действия idFTP? (Indy) Про ресурсы, опять эти Stream'ы Опять ресурсы :) борьба с потоком, пока не победил:( Nicka, Основание страниц в отчетах CLX + Clipboard = проблема, Некоректная работа с буфферм обмена АОН&Caller_ID HotKey's, привязать к своей программе Поиск Руссификация программы Работа с модемом Где можно достать весь список всех WinAPI функций?, с описанием Отбор в цикл Выход из процедуры Pos - глючит Indy FTP - выводим список файлов на сервере Прозрачность окон, API Res Программа в Паскаль, Требуется помощь Нужен компонент, Для Дельфи 3.... Работа с динамическими массивами, и файлами |
Платные хостинги Раскрутка сайта Книги по программированию Прозрачность окон, API
- Вот такая воть кодярка но работает тока под NT, как бы сделать проверку, что и под Win9x запускалась, а то ведь даже не компилиться, как быть? Пишет что нету такой функции, да и откуда ей взяться (под 9x)Код unit Unit1;interfaceuses 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.highlightSyntax('delphiFmODFm','delphi'); - Вместо:Код 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';highlightSyntax('delphiM5M2Ez','delphi');НапишиКод 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;highlightSyntax('delphiM2OTlhO','delphi');И перед вызовом SetLayeredWindowAttributes сделай так: SetLayeredWindowAttributes := GetProcAddress(GetModuleHandle('user32.dll'), PChar('SetLayeredWindowAttributes')); - А можно сначала версию винды проверить:Код if Win32Platform = VER_PLATFORM_WIN32_NT thenhighlightSyntax('delphi1Nzg5Z','delphi');После чего выполнить или не выполнить код, предложеный p0s0l Это сообщение отредактировал <Spawn> - 7.2.2004, 16:11 - Спасибо, ща попробую - Когда-то сто лет назад обсуждался вопрос про прозрачность, и как ее сделать. Точно помню, что приводил код, как сделать прозрачные окна под Win98. Поищите.  |