Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.06.13;
Скачать: CL | DM;

Вниз

Окно на чистом API.   Найти похожие ветки 

 
Sur ©   (2004-05-08 20:35) [0]

Написал я маленькую програмку, для ращепления одного файла на
несколько частей. А тепер xочу сделать его действительно "маленьким",
то есть написать его на чистом API.
Окно создавать я научилсья, но мне нужно сделать его(речь идет а том окне,
который в делфи называют формой) такой как если бы в делфи присвоили его
такие значения:
BorderStyle := bsSingle
BorderIcons := [biSystemMenu,biMinimize]
Перепробовал все(или почти все :))


 
uny   (2004-05-08 20:37) [1]

а почему консольная не подходит? 40-50 кб, раз для расщепления - может меньше. параметры через командную строку


 
Sur ©   (2004-05-08 21:19) [2]


> uny  

может и подxодит, только в данный момент мне интересует
Win API


 
Klev   (2004-05-08 22:16) [3]

Как я понял тебе надо сделать недоступной кнопку развертывания и кнопку закрытия окна. Если так, то:
Следующий пример запрещает кнопку закрытия (и пункт "закрыть" (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;



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

Текущий архив: 2004.06.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
14-1085900129
YurikGl
2004-05-30 10:55
2004.06.13
Славянофилам - посвящается


1-1085941565
Кирилл
2004-05-30 22:26
2004.06.13
EInvalidOperation


1-1086163538
Timon
2004-06-02 12:05
2004.06.13
извините но опять EXCEL (так его)


6-1082487800
Valerik
2004-04-20 23:03
2004.06.13
ServerSocket обрыв соединения?


14-1085745433
ISP
2004-05-28 15:57
2004.06.13
Самый Главный Патч от Микрософт.