Карта сайтаСсылкиКонтакты

Случайная новость

Перетаскивание пунктов TreeView

Для того, чтобы позволить перетаскивание пунктов TreeView, нужно установить свойство DragMode в dmAutomatic. А в событии OnDragOver записать следующее:

Подробнее ...

Плавное исчезание изображения в TBitmap

Поместите TImage (Image1) в Delphi, подготовьте и загрузите растровое изображение 24 или 32 бит в него; поместите TButton (Button1) и поместите этот код в его событие OnClick:

 

Включение / Отключение ScreenSaver

Иногда нужно отключить текущий хранитель экрана (ScreenSaver) для выполнения каких-либо длительных процессов. Вы можете использовать эту функцию, чтобы включить или отключить скринсэйвер. Передайте функции True, чтобы активировать или False, чтобы дезактивировать скринсэйвер.

 

Изменение значка кнопки Пуск

Показывается, как изменить изображение на кнопке Пуск (Start) Windows:

 

Отключение Alt+Tab, Ctrl+Esc, Ctrl+Alt+Del

Если Вы хотите отключить эти сочетания клавиш, выполните процедуру SystemKeys. Когда Вы вызываете SystemKeys и переменной Disable присвоено значение True, клавиши будут заблокированы, если False - наоборот.

 

Программно получить состояние памяти

Чтобы получить текущее состояние памяти, используйте функцию GlobalMemoryStatus(). Функция GlobalMemoryStatus() содержит несколько полей, указывающие на состояние памяти.

 

Программно выйти из Windows, используя код Delphi

Здесь показано, как программно выйти из Windows, используя код Delphi и Windows API.

 

Получить версию Windows

Здесь приведен код, который демонстрирует, как получить версию Windows, используя Delphi.

 

Удаление каталогов рекурсивным методом

Следующая функция полностью удаляет каталог независимо от того, заполнен ли каталог и имеются ли подкаталоги. Никакого подтверждения не требуется, так что будьте осторожны! Если операция прошла успешно, функция возвращает TRUE, в противном случае FALSE.

 

Показать подсказку в виде воздушного шарика

Пример отображения подсказки в виде воздушного шарика:

 

Отображение элементов TListBox в несколько колонок

Управление TListBox в Delphi отображает коллекцию элементов в прокручиваемом списке.

 

Создание ComboBox без рамки

Как создать плоский (без границ) ComboBox? Простой пример такого решения:

 

Отображение содержимого окна при перетаскивании

В данном примере показано, как можно включить/отключить отображение содержимого окна при перетаскивании его мышью. Если отображение будет отключено, то при перетаскивании окна при помощи мыши, будет отображаться только рамка окна.

 

Как установить принтер по умолчанию

Если Вы хотите использовать другой принтер по умолчанию, и сделать это нужно будет в самой программе, то Вы можете использовать этот код. А при выходе из программы, например, вернуть все назад. В качестве параметра процедуре передается имя принтера в сети или на локальном компьютере:

 

Как сохранить текст из буфера обмена в файл

Если Вы хотите сохранить текстовые данные, которые содержатся в буфере обмена (Clipboard) в файл на диске, то Вы можете использовать следующий код:


uses Clipbrd;

 function ClipboardTxtToFile
          (sFileTXT : string) : boolean;
 var
    ps1, ps2 : PChar;
    dwLen : DWord;
    tf : TextFile;
    hData : THandle;
 begin
   Result := False;
   with Clipboard do begin
    try
     Open;
      if(HasFormat(CF_TEXT)) then begin
       hData := GetClipboardData(CF_TEXT) ;
       ps1 := GlobalLock(hData) ;
       dwLen := GlobalSize(hData) ;
       ps2 := StrAlloc(1 + dwLen) ;
       StrLCopy( ps2, ps1, dwLen ) ;
       GlobalUnlock( hData ) ;

       AssignFile(tf, sFileTXT) ;
       ReWrite(tf) ;
       Write(tf, ps2) ;
       CloseFile(tf) ;

       StrDispose( ps2 ) ;
       Result := True;
      end;
     finally
      Close;
    end;
   end;
 end;

Пример использования:


procedure TForm1.Button1Click(Sender: TObject);
begin
  ClipboardTxtToFile('D:\text.txt')
end;
 

Как скрыть / показать иконки на Рабочем Столе Windows

Чтобы скрыть или отобразить иконки, которые находятся на Рабочем Столе Windows, можно применить данную процедуру:


procedure ShowDesktop(const YesNo : boolean) ;
 var h : THandle;
 begin
   h := FindWindow('ProgMan', nil) ;
   h := GetWindow(h, GW_CHILD) ;
   if YesNo = True then
     ShowWindow(h, SW_SHOW)
   else
     ShowWindow(h, SW_HIDE) ;
 end;

Пример использования:


procedure TForm1.btnShowClick(Sender: TObject);
begin
ShowDesktop(true);
end;

procedure TForm1.btnNoShowClick(Sender: TObject);
begin
  ShowDesktop(false);
end;
 

Как преобразовать ICO в BMP

Если Вы хотите преобразовать файл иконки (*.ICO) в файл точечного растрового изображения (*.BMP), Вам необходимо выполнить следующий код:


procedure IcoToBmp;
 var
    Icon : TIcon;
    Bitmap : TBitmap;
 begin
    Icon := TIcon.Create;
    Bitmap := TBitmap.Create;
    Icon.LoadFromFile('C:\Windows\Printer.ico') ;
    Bitmap.Width := Icon.Width;
    Bitmap.Height := Icon.Height;
    Bitmap.Canvas.Draw(0, 0, Icon ) ;
    Bitmap.SaveToFile('C:\Temp\Picture.bmp') ;
    Icon.Free;
    Bitmap.Free;
 end;
 
«В начало12345678910В конец»