Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

Изображение экрана 


SuperIgor   (2002-02-22 22:44) [0]

Люди помогите!!! Как получить изображение экрана(рабочего стола) и сохранить его в файл(Напр. *.bmp)?????????????



Vitaly Nevzorov   (2002-02-23 00:28) [1]

Так экрана или рабочего стола? Если экрана то у меня где-то завалялся код (напиши мне на email я поищу), а для рабочего стола никогда не пробовал.



Song   (2002-02-24 10:18) [2]

А чё сложного-то?

DeskTopCanvas:=TCanvas.Create;
BitMap:=TBitMap.Create;
try
DeskTopCanvas.Handle:=GetDC(HWND_DeskTop);
Rect:=Bounds(0,0,Screen.Width,Screen.Height);
With BitMap Do
Begin
Height:=Screen.Height;
Width:=Screen.Width;
Canvas.CopyRect(Rect,DeskTopCanvas,Rect);
SaveToFile(TempPath+"\screenshot.bmp");
End;
finally
BitMap.Free;
DeskTopCanvas.Free;
end;



SuperIgor   (2002-02-26 00:17) [3]

Thank"s SONG!!!!!!!!!!!!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.025 c
1-43019           HSashsa               2002-02-28 18:15  2002.03.14  
Работа с массивом компонентов


1-43008           Igor_                 2002-02-28 10:16  2002.03.14  
Как закрыть главную форму?


3-42937           Biocron               2002-02-14 07:27  2002.03.14  
Помогите ПЛИЗ


14-43169          Awex                  2002-01-31 14:33  2002.03.14  
Подскажите плиз, книку Рэя Конопки кто нибудь видел в каком нибудь интернет магазине, и Белеро и Озон и море других просмотрел, так и ненашел.... везде в нулевых остатках.... :(((


1-42991           lsiSerg               2002-02-28 13:31  2002.03.14  
PopUp и логотип