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"...
function protectInt(intnumb,tuInt,theRandd:integer):pchar; stdcall;
var mypchar:pchar;
begin
protInts[intnumb]:=tuInt*theRandd;
intMult[intnumb]:=theRandd; //can just ignore this line
strpcopy(mypchar,inttostr(protInts[intnumb]));
Result:=mypchar;
end;
OK basically what it's...
OK well I think I found a user32.dll function that is perfect for me: GetWindowTextA. The problem is, I don't know how to do it... In vb you'd do
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA"
(ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.