createdc function in delphi

[dazappa007]

I'm trying to convert the following from VB to delphi.

GetCursorPos z
screendc = CreateDC("DISPLAY", "", "", 0&)
color (the Hex value is
Text1 = GetPixel(screendc, z.x, z.y)
Picture1.BackColor = GetPixel(screendc, z.x, z.y)
DeleteDC (screendc)

Here's the line:

screendc := CreateDC("DISPLAY", "", "", 0);

But it gives me this "[Error] Unit1.pas(33): Illegal character in input file: '"' ($22)"

 

[Glenn9999]

1) Check the proper variable types required for CreateDC.

2) You are using double-quotes, when Delphi requires single-quotes.

If it's what I think you're trying to do, you want:

screendc := CreateDC('DISPLAY', nil, nil, nil);

----------
Measurement is not management.