Скачать: CL | DM;

Как получить изображение рабочего стола ...   Найти похожие ветки 

← →
Delphi5.01 ©   (2004-08-10 09:43) [0]

Здравствуйте
Как получить изображение рабочего стола. Метод:
 ...
var
 BitMap: TBitMap;
 ...
begin
 ...
 BitMap:=TBitMap.Create;
 BitMap.Canvas.Handle:=GetDC(0);
 BitMap.Free;
 ...
end;
не подходит, так как мне нужно изображение рабочего стола без моей формы!
Вполне возможно кто то сталкивался с похожей проблемой?
Спасибо за помощь

---

← →
VMcL ©   (2004-08-10 10:00) [1]

Visible
?

---

← →
VMcL ©   (2004-08-10 10:00) [2]

Удалено модератором

---

← →
VMcL ©   (2004-08-10 10:00) [3]

Удалено модератором

---

← →
VMcL ©   (2004-08-10 10:03) [4]

Oops. Sorry. Опять этот ISE aka 500.

---

← →
Delphi5.01 ©   (2004-08-10 10:24) [5]

Visible men nichego ne podskazivaet!
Elsi vi imeete v vidu pogosit moio okoshko i potom sdelat snimok ekrana to vi ne sovem pravi. Vo pervih trudno poimat moment kogda okoshko realno ischezlo, vo vtorih, okoshko budet migat.
P.S. Obratitie vnimanie na Windows Media Player, i programi dannogo tipa!

---

← →
VMcL ©   (2004-08-10 10:33) [6]

>>Delphi5.01 ©  (10.08.04 10:24) [5]

Если только рабочий стол, то может так:

function GetDesktopListViewHandle: HWND;
var
 S: packed array [0 .. 127] of Char;
 Res: Integer;
begin
 Result := FindWindow("ProgMan", nil);
 Result := GetWindow(Result, GW_CHILD);
 Result := GetWindow(Result, GW_CHILD);
 Res := GetClassName(Result, S, SizeOf(S) - 1);
 if (Res = 0) or (String(S) <> "SysListView32") then
   Result := 0;
end;

// ...

BitMap.Canvas.Handle := GetDC(GetDesktopListViewHandle);


?

---

← →
Delphi5.01 ©   (2004-08-10 11:51) [7]

Spasibo, nu ni vpram toch v toch sdelali chto ia poprosil. Naverno ia ne sovsem pravilno virazilsa, mne nujno izobrajenie ne tolko rabochego stola no i katalogov i programm (krome moei).
Spasibo

---

← →
Correct   (2004-08-10 11:54) [8]

Vami predlojeni primer vso ravno kopituet ne tolko rabochi stol no i otkritie katalogi a izobrajenie moei programi!

---

← →
DK   (2004-08-10 12:00) [9]

А почему не получается убрать форму на время копирования картинки?

---

← →
Correct   (2004-08-10 14:14) [10]

Obiasnu vsu mislu, potom legche budet mena ponat. Hochu sozdat formu kotoraia otdaiot ten na rabochem stole, prosto dla prikola, uludshaet vid progi. Dla etogo mne nujen algoritm sglazivania kraiov i teni, chto uje razobrano. Ostaiotsa soskanirovat vso chto nahoditsa bod moei programoi. Esli ia s samogo nachala sdelau printscreen i v budushe ego budu isplzovat to voznikaet problema esli vo vrema raboti programmi otrktout katalog ili programu to zadni fon izmenilsa. A moia programa ob etom i ne znaet! :-( I prodoljaet rabotat s glukkom!

---

← →
VMcL ©   (2004-08-10 14:22) [11]

>>Delphi5.01 ©  (10.08.04 11:51) [7]

Практически эта проблема решается только задержкой после Visible := False;, например, с помощью Sleep().

---

← →
Delphi5.01 ©   (2004-08-10 14:51) [12]

Da no kak rabotaut programi u kotorie otdaut ne tolko ten no i kraia ramzmazanie!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.024 c