Иногда нужно отключить текущий хранитель экрана (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;
|
|
|