Jak odczytać kolor piksela na ekranie?

Q: Jak odczytać kolor piksela na ekranie?

Użyj tego kodu: [crayon-662ab725a3771713186808/] Autor: Drazek

Q: Jak odczytać kolor piksela na ekranie?

Użyj tego kodu: [crayon-662ab725a3771713186808/] Autor: Drazek

Użyj tego kodu:

function GetDesktopListViewHandle: THandle; 

var S: String; 

begin 

      Result := FindWindow('ProgMan', nil); 

      Result := GetWindow(Result, GW_CHILD); 

      Result := GetWindow(Result, GW_CHILD); 

      SetLength(S, 40); 

      GetClassName(Result, PChar(S), 39); 

      if PChar(S) <> 'SysListView32' then 

      Result := 0; 

end; 


procedure TForm1.Timer1Timer(Sender: TObject); 

var 

  uchwyt: HWND; 

  dc: HDC; 

  c: TCanvas; 

  x,y,i:integer; 

begin 

  uchwyt := GetDesktopListViewHandle; 

  dc     := GetWindowDC(uchwyt); 

  c := TCanvas.Create; 

  c.Handle := dc; 

    ColorBox1.Color:=c.Pixels[Mouse.CursorPos.X,Mouse.CursorPos.Y]; 

end;

function GetDesktopListViewHandle: THandle;

var S: String;

begin

Result := FindWindow('ProgMan', nil);

Result := GetWindow(Result, GW_CHILD);

SetLength(S, 40);

GetClassName(Result, PChar(S), 39);

if PChar(S) <> 'SysListView32' then

Result := 0;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var

uchwyt: HWND;

dc: HDC;

c: TCanvas;

x,y,i:integer;

begin

uchwyt := GetDesktopListViewHandle;

dc := GetWindowDC(uchwyt);

c := TCanvas.Create;

c.Handle := dc;

ColorBox1.Color:=c.Pixels[Mouse.CursorPos.X,Mouse.CursorPos.Y];

end;

Autor: Drazek