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

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

Проверка файла на "скрытый", отключение развёртывания. [D7, XP]

WestBronx ©   (2006-03-20 23:10:00) 

Привет мастера, имеется 2 вопроса.

1. Подскажите, как проверить, стоитли у N'го файла, атрибут "Скрытый"?

2. Как отключить кнопку "Развернуть" в заголовке программы?
Нашёл такой код, но он для отключения "[x]".
Попробывал заменить SC_CLOSE на SC_MAXIMIZE, кнопка перестала работать, но не стала "серой".


procedure TForm1.FormCreate(Sender: TObject);
var
 hwndHandle: THANDLE;
 hMenuHandle: HMENU;
 iPos: Integer;

begin
 hwndHandle := FindWindow(nil, PChar(Caption));
 if (hwndHandle <> 0) then
 begin
   hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
   if (hMenuHandle <> 0) then
   begin
     DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
     iPos := GetMenuItemCount(hMenuHandle);
     Dec(iPos);
       { Надо быть уверенным, что нет ошибки т.к. -1 указывает на ошибку }
     if iPos > -1 then
       DeleteMenu(hMenuHandle, iPos, MF_BYPOSITION);
   end;
 end;
end;


---

WestBronx   (2006-03-20 23:34:00) [1]

WestBronx   (20.03.06 23:32) [2]
А, опечатка у вас %) Спасибо ;)

---

WestBronx   (2006-03-20 23:32:00) [2]

tesseract ©   (20.03.06 23:28) [1]
неизветный индефикатор на biMaximise =/

---

tesseract   (2006-03-20 23:28:00) [3]

в help -> windows SDK - смотрим GetFileAttributes/GetFileAttributesEx.


> 2. Как отключить кнопку "Развернуть" в заголовке программы?

Как я понял ты у своей формы кнопку отключаешь.
Не проще-ли выключить так:

Form1.borderIcons:=[]; - отключит всё
From1.borderIcons:=Form1.borderIcons-[biMaximise]; - только развёртывание.

---

Наверх