Скачать: CL | DM;

Проверка файла на "скрытый", отключение развёртывания.   Найти похожие ветки 

← →
WestBronx   (2006-03-20 23:10) [0]

Привет мастера, имеется 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;


---

← →
tesseract ©   (2006-03-20 23:28) [1]

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


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

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

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

---

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

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

---

← →
WestBronx   (2006-03-20 23:34) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c