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

← →
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]
А, опечатка у вас %) Спасибо ;)

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