Вот Вам быстрый доступ к пикселам.
Пользуюсь давно. Работает быстро и замечательно.
К сожалению автор не известен

TMyClass
  private
    fDelta; integer;
    fStart: integer;
end;

...

function TMyClass.GetPixels(X, Y: integer): integer; assembler;
asm
  imul ecx,[eax].fDelta
  add ecx,[eax].fStart
  add ecx,edx
  movzx eax,WORD PTR [ecx+2*edx]
  bswap eax
  shr eax,8
  movzx ecx, BYTE PTR [ecx+2*edx+2]
  or eax,ecx
end;


procedure TMyClass.SetPixels(X, Y: integer; {color}const Value: integer); assembler;
asm
  imul ecx,[eax].fDelta
  add ecx,[eax].fStart
  lea edx,[edx+edx*2]
  mov eax,[ebp+8]  //Value
  bswap eax
  shr eax, 8
  mov [ecx+edx],ax
  shr eax, 16
  mov [ecx+edx+2],al
end;

procedure TMyClass.Mymethod;
begin
  if (bmp = nil) or bmp.Empty then Exit;
  bmp.PixelFormat := pf24bit;
  fStart := integer(bmp.Scanline[0]);
  fDelta := integer(bmp.Scanline[1]) - fStart;
  ...
end;

(читать всё…)

Количество сотых долей секунды, прошедших с начала дня

Можно использовать, например, в качестве BenchMark-а времени выполнения некоторого кода для отладки.

@ echo off
setlocal enabledelayedexpansion

call :gettick
echo Tick Count: %errorlevel%

pause
exit /b 0

:: Количество сотых долей секунды, прошедших с начала дня
:gettick
setlocal
set t=%time: =0%
set /a tick=1%t:~9,2%-100+(1%t:~6,2%-100)*100+(1%t:~3,2%-100)*6000+(1%t:~0,2%-100)*360000
endlocal & exit /b %tick%

Функция gettick возвращает количество сотых долей секунды, прошедших с начала дня. Чтобы не появилось «восьмеричных» чисел (числа, начинающиеся с нуля, воспринимаются как восмеричные), я дописываю к каждой компоненте времени в начало 1, а затем вычитаю 100. Таким образом проблема решается без введение дополнительных поверок if.

тема на форуме

На некоторые ячейки наложена проверка данных. Как по даблклику крутить значения ячейки по кругу?

(читать всё…)

@echo off
setlocal enabledelayedexpansion

:: ==============================================
:: Запуск скрипта в свернутом окне
:: ==============================================
if not "%1"=="--minimize" (
	start "%~n0" /min "%~0" --minimize %*
	goto :EOF
)
shift /1

:: ==============================================
:: Основной код скрипта начинается ниже
:: ==============================================
echo Minimized mode...

pause
exit

тема на форуме

Создаю HBITMAP

var
  bi: BITMAPINFO;
  hB: HBITMAP;
  DC: HDC;
  Scr: Pointer;
begin
  DC := CreateCompatibleDC(0);

  FillChar(bi, SizeOf(bi), 0);
  bi.bmiHeader.biSize := SizeOf(BITMAPINFOHEADER);
  bi.bmiHeader.biWidth := asize.cx;
  bi.bmiHeader.biHeight := asize.cy;
  bi.bmiHeader.biPlanes := 1;
  bi.bmiHeader.biBitCount := 32;
  bi.bmiHeader.biCompression := BI_RGB;
  bi.bmiHeader.biSizeImage := asize.cx * asize.cy * 4;

  Scr := nil;
  hB := CreateDIBSection(DC, bi, DIB_RGB_COLORS, Scr, 0, 0);

Как получить доступ к R,G,B,A значениям каждого пиксела через указатель Scr?

(читать всё…)

Вариант нахождения модуля числа a без поразрядных операций на BAT/CMD:

(читать всё…)

Ребят, кто умеет копировать текст из блока в буфер обмена, отзовитесь!

Казалось бы такая простая задачка, но это ж джаваскрипт, тут пока не заплюёшь весь экран по десятому разу, ничего не получится…

В общем почти все советы идут через «execCommand(‘copy’)«, но в документации написано, что этот метод устарел (да какая разница один хрен не работает), поэтому не хотелось бы его использовать.
Однако ж инновационно-новый, супер-пупер АХ… какой хороший «window.navigator.clipboard.writeTex t(‘$temp’)» не работает, потому что этот самый clipboard равен ундефинед, как я понимаю (почитав документацию через третьи руки) к нему нельзя получить доступ, если у тебя не https.
А что же нам, простым сайтам с древним http и локальным серверам теперь уже невозможно выполнить простейшее действие, скопировать текст в буфер???

(читать всё…)

Батник для получения ProductKey установленной Windows:

(читать всё…)

Как парсить https сайт? В http получается, но https не парсит.

var
 IdHTTP: TIdHTTP;
StrPars,St :string;
 s:Tstringlist;
begin
s:=TStringList.Create;
IdHTTP:=TIdHTTP.Create(Self);
s.text:=IdHTTP.Get('http://........./');

StrPars:=s.text;

Delete(StrPars,1,pos('<td>',StrPars)+1);
st:=copy(StrPars,3,pos('</td>',StrPars)-3);


label1.Caption:=(St);
end;

(читать всё…)

Пожалуй, это лучший вариант для преобразования регистров символов:
(читать всё…)