PHP Delphi CSS HTML JavaScript Perl API ASP MySQL XML С++ VBasic WEB разработка *NIX CouchDB Hack Python
Главная Статьи Delphi Как скрыть кнопку "х" в заголовке окна.
Главная
 Главная  Контакты
 
Программинг
Статьи Книги ЧаВО
 
xBOOKi
Fresh Books Операционки Сети
 
Поиск
-------
 
Counters
Яндекс цитирования
Rambler's Top100
-------
 
CryptDisk.4h
Программа которая позволяет создать виртуальный шифрованный логический диск.

cryptdisk.4hack.com

-------
 
 

Как скрыть кнопку "х" в заголовке окна.

Автор: Fernando Silva
www.исходники.ru

Пример показывает, как при инициализации формы происходит поиск нашего окна, а затем вычисление местоположения нужной нам кнопки в заголовке окна.

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;


Свежее
Резервное копирование rsync-ом
DNS Amplification (DNS усиление)
Алгоритм Шинглов — поиск нечетких дубликатов текста
Metasploit Framework. Обзор
Использование CouchDB
-------



 
Copyright © 2003-2009   Frikazoid.
Rambler's Top100