Find Jobs
Hire Freelancers

Delphi : take screenshot (make vista compatible)

$30-100 USD

Completed
Posted about 15 years ago

$30-100 USD

Paid on delivery
I have a program that pushes a service which takes a screenshot from the current screen of the computer and the main program takes this screenshot from the harddrive. The service is only a few lines of code and it works perfect on windows 2000 and windows XP. Adjustements needed: It does not work on windows vista (returns a blank screen) It does not work with multiple screens (only returns one screen) you need to adjust it so it returns all screens as one jpeg: Current service code: procedure [login to view URL](Sender: TService); var myDesktop : [login to view URL]; DesktopCanvas : TCanvas; DC : hDC; myjpg : TJPEGImage; begin myDesktop := [login to view URL]; [login to view URL] := [login to view URL]; [login to view URL] := [login to view URL]; DC := GetDC (0); DesktopCanvas := [login to view URL]; [login to view URL] := DC; [login to view URL] (Rect (0, 0, [login to view URL], [login to view URL]), DesktopCanvas , Rect (0, 0, [login to view URL], [login to view URL])); [login to view URL]; ReleaseDC (0, DC); myjpg := [login to view URL]; [login to view URL](myDesktop); [login to view URL] := 80; [login to view URL]; [login to view URL]; [login to view URL]('c:\[login to view URL]'); [login to view URL]; [login to view URL]; end; You will get the full program on acceptance of the bid.
Project ID: 3536312

About the project

2 proposals
Remote project
Active 15 yrs ago

Looking to make some money?

Benefits of bidding on Freelancer

Set your budget and timeframe
Get paid for your work
Outline your proposal
It's free to sign up and bid on jobs
Awarded to:
User Avatar
See private message.
$17 USD in 14 days
5.0 (7 reviews)
3.1
3.1
2 freelancers are bidding on average $26 USD for this job
User Avatar
See private message.
$34 USD in 14 days
4.9 (23 reviews)
8.9
8.9

About the client

Flag of BELGIUM
Belgium
5.0
44
Payment method verified
Member since Aug 9, 2007

Client Verification

Thanks! We’ve emailed you a link to claim your free credit.
Something went wrong while sending your email. Please try again.
Registered Users Total Jobs Posted
Freelancer ® is a registered Trademark of Freelancer Technology Pty Limited (ACN 142 189 759)
Copyright © 2024 Freelancer Technology Pty Limited (ACN 142 189 759)
Loading preview
Permission granted for Geolocation.
Your login session has expired and you have been logged out. Please log in again.