Рабочий стол

Как вывести картинку Bitmap на рабочем столе

2017-10-17T16:47:16+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

Picture: TPicture;

Desktop: TCanvas;

X, Y: Integer;

begin

// Objekte erstellen

// create objects

Picture := TPicture.Create;

Desktop := TCanvas.Create;

// Bild laden

// load bitmap

Picture.LoadFromFile('bitmap1.bmp');

// Geratekontex vom Desktop ermitteln

// get DC of desktop

Desktop.Handle := GetWindowDC(0);

// Position des Bildes

// position of bitmap

X := 100;

Y := 100;

// Bild zeichnen

// draw bitmap

Desktop.Draw(X, Y, Picture.Graphic);

// Geratekontex freigeben

ReleaseDC(0, Desktop.Handle);

// Objekte freigeben

// release objects

Picture.Free;

Desktop.Free;

end;

Как выровнять иконки на рабочем столе к левому краю?

2017-10-17T16:54:22+07:00

Для начала необходимо получить дескриптор рабочего стола, который представляет из себя обычный ListView.

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

Как обновить рабочий стол?

2017-10-17T16:41:22+07:00

Code:

procedure RefreshDesktop;

{©Drkb v.3}

var

c1 : cardinal;

begin

c1:=FindWindowEx(FindWindowEx(FindWindow('Progman','Program Manager'),,'SHELLDLL_DefView',''),0,'SysListView32','');

PostMessage(c1,WM_KEYDOWN,VK_F5,0);

PostMessage(c1,WM_KEYUP,VK_F5,1 shl 31);

end;

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

Как пpогpаммно вывести окно свойств экpана

2017-10-19T17:18:09+07:00

Code:

ShellExecute(Application.Handle, 'open', 'desk.cpl', nil, nil, sw_ShowNormal);

Автор: Nomadic

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

Как показать окно свойств экрана?

2017-10-17T16:44:41+07:00

Для этого воспользуемся 'Rundll32.exe' и запустим её в 'shellexecute'. Не забудьте добавить 'shellapi' в Ваш список uses.

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

Как получить Handle рабочего стола

2017-10-19T17:11:57+07:00

Рабочий стол перекрыт сверху компонентом ListView. Вам просто необходимо взять хэндл этого органа управления. Пример:

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

Как получить и изменить координаты иконок на столе?

2017-10-19T16:49:21+07:00

Как получить и изменить координаты иконок на столе?

Previous Top Next

Code:

uses

CommCtrl,

IPCThrd; (from your Delphi\Demos\Ipcdemos directory)

function GetDesktopListViewHandle: THandle;

var

S: String;

begin

Result := FindWindow('ProgMan', nil);

Result := GetWindow(Result, GW_CHILD);

SetLength(S, 40);

GetClassName(Result, PChar(S), 39);

if PChar(S) <> 'SysListView32' then Result := 0;

end;

procedure TForm1.Button1Click(Sender: TObject);

type

PInfo = ^TInfo;

TInfo = packed record

infoPoint: TPoint;

infoText: array[0..255] of Char;

infoItem: TLVItem;

infoFindInfo: TLVFindInfo;

end;

var

r : TRect;

hWnd : THandle;

i, iCount : Integer;

Info: PInfo;

SharedMem: TSharedMem;

begin

hWnd := GetDesktopWindow();

GetWindowRect(hWnd,r);

Memo.Lines.Add('Bottom: ' + IntToStr(r.Bottom));

Memo.Lines.Add('Right: ' + IntToStr(r.Right));

hWnd := GetDesktopListViewHandle;

iCount := ListView_GetItemCount(hWnd);

Memo.Lines.Add('# Icons: ' + IntToStr(iCount));

SharedMem := TSharedMem.Create('', SizeOf(TInfo));

Info := SharedMem.Buffer;

with Info^ do

try

infoItem.pszText := infoText;

infoItem.cchTextMax := 255;

infoItem.mask := LVIF_TEXT;

try

begin

for i := 0 to iCount - 1 do

begin

infoItem.iItem := i;

try

ListView_GetItem(hWnd, infoItem);

ListView_GetItemPosition(hWnd, I, infoPoint);

Memo.Lines.Add('Icon: ' + infoText);

Memo.Lines.Add(' X: ' + IntToStr(infoPoint.X));

Memo.Lines.Add(' Y: ' + IntToStr(infoPoint.Y));

except

end;

finally

end;

finally

SharedMem.Free;

end;

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

Как проверить, включён ли ActiveDesktop?

2017-10-17T16:45:37+07:00

Code:

function IsActiveDeskTopOn: Boolean;

var

h: hWnd;

begin

h := FindWindow('Progman', nil);

h := FindWindowEx(h, 0,

'SHELLDLL_DefView', nil);

h := FindWindowEx(h, 0,

'Internet Explorer_Server', nil);

Result := h <> 0;

end;

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

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

2017-10-17T16:53:30+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin

// скрыть иконки

ShowWindow(FindWindow(nil,'Program Manager'),SW_HIDE);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

// показать иконки

ShowWindow(FindWindow(nil,'Program Manager'),SW_SHOW);

end;

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

Как скрыть/показать ActiveDesktop?

2017-10-17T16:46:13+07:00

Code:

uses

ComObj, ShlObj, ActiveX;

procedure EnableActiveDesktop(bValue: Boolean);

const

CLSID_ActiveDesktop: TGUID = (D1: $75048700; D2: $EF1F; D3: $11D0;

D4: ($98, $88, $00, $60, $97, $DE, $AC, $F9));

var

MyObject: IUnknown;

ActiveDesk: IActiveDesktop;

twpoComponentOpt: TComponentsOpt;

begin

MyObject := CreateComObject(CLSID_ActiveDesktop);

ActiveDesk := MyObject as IActiveDesktop;

with twpoComponentOpt do

begin

ZeroMemory(@twpoComponentOpt, SizeOf(TComponentsOpt));

dwSize := SizeOf(twpoComponentOpt);

fEnableComponents := bValue;

// fActiveDesktop := True;

end;

ActiveDesk.SetDesktopItemOptions(twpoComponentOpt, 0);

ActiveDesk.ApplyChanges(AD_APPLY_ALL);

end;

Как сменить обои на рабочем столе?

2017-10-17T16:44:05+07:00

В принципе, все настройки на фоновый рисунок хранятся в реестре. Поэтому надо сначала скопировать картинку в какое-нибудь место (лучше в каталог Виндов) на случай удаления или переноса исходного файла. Информация по обоям хранится в разделе HKEY_CURRENT_USER\Control Panel\Desktop в параметрах TileWallpaper (если 1 - рисунок размножен, 0 - в центре), Wallpaper - путь к файлу обоев (gif, bmp, jpg), WallpaperStyle - если 2, то обои будут растянуты (отсутствует в 95 винде).

ПОсле установки всех занчений обновляешь рабочий стои и наслаждаешься эффектом.

Автор ответа: Garik

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

Как создать лупу для рабочего стола?

2017-10-17T16:49:18+07:00

Code:

// переменные

var Srect,Drect,PosForme:TRect;

iWidth,iHeight,DmX,DmY:Integer;

iTmpX,iTmpY:Real;

C:TCanvas;

Kursor:TPoint;

// Увеличиваем экран, если приложение не свёрнуто в иконку

If not IsIconic(Application.Handle) then begin

// Получаем координаты курсора

GetCursorPos(Kursor);

// PosForm представляет прямоугольник с

// координатами Form (image control).

PosForme:=Rect(Form1.Left,

Form1.Top,

Form1.Left+Form1.Width,

Form1.Top+Form1.Height);

//Показываем magnified screen

//если курсор за пределами формы.

If not PtInRect(PosForme,Kursor) then begin

// Далее код можно использовать для увеличения выбранной

// части экрана. С небольшими модификациями его можно

// использовать для уменьшения

// экрана

iWidth:=Image1.Width;

iHeight:=Image1.Height;

Drect:=Bounds(0,0,iWidth,iHeight);

iTmpX:=iWidth / (Slider.Position * 4);

iTmpY:=iHeight / (Slider.Position * 4);

Srect:=

Rect(Kursor.x,Kursor.y,Kursor.x,Kursor.y);

InflateRect(Srect,Round(iTmpX),Round(iTmpY));

//Получаем обработчик(handle) окна рабочего стола.

C:=TCanvas.Create;

try

C.Handle:=GetDC(GetDesktopWindow);

//Передаём часть изображения окна в TImage.

Image1.Canvas.CopyRect(Drect,C,Srect);

finally

C.Free;

end;

// Обязательно обрабатываем все сообщения Windows.

Application.ProcessMessages;

end; // IsIconic

Автор: Zarko Gajic

Как установить обои в формате jpeg?

2017-10-17T16:55:30+07:00

Как установить обои в формате jpeg. SystemParametersInfo только для bmp.

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

Как установить цвет фона иконок на рабочем столе, либо сделать у них прозрачный фон?

2017-10-17T16:47:59+07:00

Для этого нужно найти окно "SysListView32" (которое является списком, который содержит иконки рабочего стола). Сперва будем искать главное родительское окно "Progman", которое содержит дочернее окно "SHELLDLL_DefView" , которое в свою очередь имеет дочернее окно "SysListView32". Для этого можно воспользоваться API функцией FindWindow to. Когда Мы получим дескриптор окна "SysListView32", то можно будет воспользоваться макросами ListView_SetTextBkColor и ListView_SetTextColor для установки желаемого цвета.

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

Определить размер рабочей области Desktop'а

2017-10-17T16:57:41+07:00

Иногда важно знать, какую часть экрана можно занимать, не перекрывая тем самым такие окна, как TaskBar. Эта программа разворачивает окно на всю рабочую область Desktop'а.

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

Переворот рабочего стола

2017-10-19T17:14:07+07:00

Автор: William Egge

Весёлая программка, которая позволяет подшутить над Вашими друзьями:-]. Пример переворачивает десктоп и держит его в таком положение, до тех пор пока не кликнуть по нему мышкой. По мимо этого код содержит в себе довольно интересные моменты.

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

Получить цвет пикселя на рабочем столе

2017-10-19T16:50:11+07:00

Code:

function DesktopColor(const X, Y: Integer): TColor;

var

c: TCanvas;

begin

c := TCanvas.Create;

try

c.Handle := GetWindowDC(GetDesktopWindow);

Result := GetPixel(c.Handle, X, Y);

finally

c.Free;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

Pos: TPoint;

begin

GetCursorPos(Pos);

Panel1.Color := DesktopColor(Pos.X, Pos.Y);

end;

Прикол с рабочи столом

2017-10-19T17:10:44+07:00

Алгоритм следующий: нужно на форму вынести компонент класса TImage скопировать в него рабочий стол и растянуть во весь экран. Делаем это по созданию окна [событие OnCreate()]:

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

Скрыть Tray, часы, кнопку ПУСК, панель задач

2017-10-19T16:51:01+07:00

Code:

program proga2;

uses

Windows;

var

Wnd: THandle; { объявляем переменные }

int: integer;

begin

Randomize; { холостой прогон генератора случайных чисел }

int := Random(3); { выбор одного варианта из четырёх }

case int of

0: { если первый вариант то }

begin

Wnd := FindWindow('Progman', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'ShellDll_DefView', nil);

{ прячем трей }

ShowWindow(Wnd, sw_hide);

end;

1: { если второй вариант то }

begin

Wnd := FindWindow('Shell_TrayWnd', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'TrayClockWClass', nil);

{ прячем часы }

ShowWindow(Wnd, sw_hide);

end;

begin

Wnd := FindWindow('Shell_TrayWnd', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'Button', nil);

{прячем кнопку "Пуск"}

ShowWindow(Wnd, sw_hide);

end;

begin

Wnd := FindWindow('Shell_TrayWnd', nil);

Wnd := FindWindowEx(Wnd, HWND(0), 'TrayNotifyWnd', nil);

{ прячем "Панель задач" }

ShowWindow(Wnd, sw_hide);

end;

end.

Снимок рабочего стола

2017-10-19T17:16:04+07:00

Code:

public

{ Public declarations }

procedure GrabScreen;

...

implementation

{$R *.DFM}

procedure TForm1.GrabScreen;

var

DeskTopDC: HDc;

DeskTopCanvas: TCanvas;

DeskTopRect: TRect;

begin

DeskTopDC := GetWindowDC(GetDeskTopWindow);

DeskTopCanvas := TCanvas.Create;

DeskTopCanvas.Handle := DeskTopDC;

DeskTopRect := Rect(0, 0, Screen.Width, Screen.Height);

Form1.Canvas.CopyRect(DeskTopRect, DeskTopCanvas, DeskTopRect);

ReleaseDC(GetDeskTopWindow, DeskTopDC);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

GrabScreen;

end;