Программирование Delphi

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

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

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

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

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

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

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

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

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

Как создать плоский (без границ) 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, можно применить данную процедуру:

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), Вам необходимо выполнить следующий код:

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;