| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Окно на чистом API. [D6, Win2k]
Sur © (2004-05-08 20:35:00)Написал я маленькую програмку, для ращепления одного файла на
несколько частей. А тепер xочу сделать его действительно "маленьким",
то есть написать его на чистом API.
Окно создавать я научилсья, но мне нужно сделать его(речь идет а том окне,
который в делфи называют формой) такой как если бы в делфи присвоили его
такие значения:
BorderStyle := bsSingle
BorderIcons := [biSystemMenu,biMinimize]
Перепробовал все(или почти все :))
Klev (2004-05-08 22:16:00) [1]Как я понял тебе надо сделать недоступной кнопку развертывания и кнопку закрытия окна. Если так, то:
Следующий пример запрещает кнопку закрытия (и пункт "закрыть" (close) в системном меню) нужного нам окна (в данном случае Notepad).
procedure TForm1.Button1Click(Sender: TObject);
var
hwndHandle : THANDLE;
hMenuHandle : HMENU;
begin
hwndHandle := FindWindow(nil, 'Untitled - Notepad');
if (hwndHandle <> 0) then begin
hMenuHandle := GetSystemMenu(hwndHandle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
end;
end;
Sur (2004-05-08 21:19:00) [2]
> uny
может и подxодит, только в данный момент мне интересует
Win API
uny (2004-05-08 20:37:00) [3]а почему консольная не подходит? 40-50 кб, раз для расщепления - может меньше. параметры через командную строку
| |
