Текущий архив: 2006.04.02;
Скачать: CL | DM;
Вниз
Список пользователей + прозрачность Найти похожие ветки
← →
SEMYONov © (2006-03-20 12:46) [0]1. Не подскажете как получить список пользователей в ХР?
2. Куда прописать путь к экзэшнику, для того чтобы программа АВТОзапускалась только у конкретного пользователя.
3. Как сделать форму с определённой степенью прозрачности.
← →
SEMYONov © (2006-03-20 12:57) [1]Второй вопрос снимаю, ступил... )))
← →
antonn © (2006-03-20 13:47) [2]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;
← →
Johnmen © (2006-03-20 14:24) [3]3. Достаточно AlphaBlend и AlphaBlendValue.
← →
antonn © (2006-03-20 15:04) [4]Johnmen © (20.03.06 14:24) [3]
3. Достаточно AlphaBlend и AlphaBlendValue.
просто не помню, с какой дельфи они появились...
← →
Boris Marchenko © (2006-03-20 17:38) [5]C 6, вроде...
← →
SEMYONov © (2006-03-22 00:23) [6]Спасибо!
А что насчёт того как получить СПИСОК ПОЛЬЗОВАТЕЛЕЙ в ХР???
Страницы: 1 вся ветка
Текущий архив: 2006.04.02;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.049 c
