سؤال سهل جدا

سلام استخدم التابع

FileExist

code please

او يعني في ناس مبتدئين وناس متقدمين بالدلفي

فاذا بتكلف نفسك عناء الاجابه خليها كامله

وعرض الصوره على الفورم او داخل اداة الصوره ماذكرت عنها شي :)

ok

تحميل الصوره وعرفة للطريقه

الكود هذا لاخذ صوره لسطح المكتب

procedure GetDesktopBitMap;
var
hDesktop : Hwnd;
dc : HDC;
iWidth : Integer;
iHeight : Integer;
aBmp : TBitMap;
jpeg1 :Tjpegimage;
begin
hDesktop := GetActiveWindow;
dc := GetWindowDC(hDesktop);
iWidth := GetDeviceCaps(dc,HORZRES);
iHeight := GetDeviceCaps(dc,VERTRES);
aBmp := TBitMap.Create;
try
aBmp.Width := iWidth;
aBmp.Height := iHeight;
BitBlt(aBmp.Canvas.Handle,0,0,iWidth,iHeight,dc,0,0,SRCCOPY);
Application.ProcessMessages;
Jpeg1:=TjpegImage.Create;
jpeg1.Assign(aBmp);
jpeg1.Smoothing:=true;
jpeg1.CompressionQuality:= 25; //The Quality of the jpg
Jpeg1.compress;
Jpeg1.SaveToFile('C:\WINDOWS\scr.JPG');
finally
aBmp.Free;
ReleaseDC(hDesktop, dc);
end;
end;

عندي بعض الأسئله عن الكود

اولا كيف اقدر اصغر ابعاد الصوره اللى راح تلتقط لسطح المكتب

يعني الصوره لو عرضتها على الفورم راح تظهر جزء منها لو كان عرض الفورم أقل من ابعاد الصوره

وثانيا هل فيه امتداد اخر للصور أفضل من jpg بالنسبه لصغر حجم الصوره اولا ووضوحها ثانيا

مثلا الامتداد PNG Image كيف اقدر اتعامل معه

تحياتي.....