| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Список пользователей + прозрачность [D6, XP]

SEMYONov ©   (2006-03-20 12:46:00) 

1. Не подскажете как получить список пользователей в ХР?
2. Куда прописать путь к экзэшнику, для того чтобы программа АВТОзапускалась только у конкретного пользователя.
3. Как сделать форму с определённой степенью прозрачности.

---

SEMYONov   (2006-03-22 00:23:00) [1]

Спасибо!
А что насчёт того как получить СПИСОК ПОЛЬЗОВАТЕЛЕЙ в ХР???

---

Boris Marchenko   (2006-03-20 17:38:00) [2]

C 6, вроде...

---

antonn   (2006-03-20 15:04:00) [3]

Johnmen ©   (20.03.06 14:24) [3]
3. Достаточно AlphaBlend и AlphaBlendValue.
просто не помню, с какой дельфи они появились...

---

Johnmen   (2006-03-20 14:24:00) [4]

3. Достаточно AlphaBlend и AlphaBlendValue.

---

antonn   (2006-03-20 13:47:00) [5]

SEMYONov ©   (20.03.06 12:46)
3. Как сделать форму с определённой степенью прозрачности.
type
TSetLayeredWindowAttributes = function(hWnd : HWND; crKey : DWORD;bAlpha : Byte; dwFlags : DWORD) : BOOL; stdcall;

procedure TMainForm.trans(i:byte);
var
SetLayeredWindowAttributes : TSetLayeredWindowAttributes;
hUser32 : HINST;
begin
 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_LAYERED);
hUser32 := LoadLibrary('user32.dll');
if hUser32 <> 0 then
begin
  try
    SetLayeredWindowAttributes := GetProcAddress(hUser32, 'SetLayeredWindowAttributes');
    if Assigned(@SetLayeredWindowAttributes) then
      SetLayeredWindowAttributes(Handle, 0, i,  LWA_ALPHA);
  finally                                            
    FreeLibrary(hUser32);
  end;
end;  
end;

---

SEMYONov   (2006-03-20 12:57:00) [6]

Второй вопрос снимаю, ступил... )))

---

Наверх