Search options (Page 10 of 15)

В Delphi и Lasarus есть... Скопипиздил из исходников:

procedure RedGreenBlue(rgb: TColor; var Red, Green, Blue: Byte);
begin
  Red := rgb and $000000ff;
  Green := (rgb shr 8) and $000000ff;
  Blue := (rgb shr 16) and $000000ff;
end;

function Blue(rgb: TColor): BYTE;
begin
  Result := (rgb shr 16) and $000000ff;
end;

function Green(rgb: TColor): BYTE;
begin
  Result := (rgb shr 8) and $000000ff;
end;

function Red(rgb: TColor): BYTE;
begin
  Result := rgb and $000000ff;
end;

Ну а вообще у Bitmap-а в программе должно быть свойство Monochrome, а его нет.
Так же рекомендую заюзать для обработки изображения COM-объекты WIA.ImageFile, WIA.ImageProcess из библиотеки wiaaut.dll

Можно и раньше:

procedure CloseQuery(Sender: TObject; var CanClose: Boolean);
begin
   ShowMessage('CloseQuery');
   CanClose := false;
end;

procedure Close(Sender: TObject; Action: TCloseAction);
begin
   ShowMessage('Close');
   Action := caNone;
end;

begin
 Form1.OnCloseQuery := @CloseQuery;
 Form1.OnClose := @Close;
end.

Великолепно...

Держи:

procedure FormKeyDown(Sender: TObject; var Key: Word; Shift, Alt, Ctrl: boolean);
begin
 if Key=27 then
 begin
     ShowMessage('Была нажата ESC в Форме');
     TForm(Sender).Close;
 end;
end;

begin
  ModalFm.KeyPreview := true;
  ModalFm.OnKeyDown := @FormKeyDown;
end.

Можно попробовать незаметно подкрасться и "перехватить".
Вопрос - где..? В главном окне программы? В модальной форме? Надо как-то правильней вопрос ставить. Подкреплять подробностями, готовым примером скрипта, который не работает, скриншотами...

Ну вот... Нормальный адекватный чел.

Поприветствовал кстати... Как и положено - "от имени правительства России"...

To whom and what are you going to file a complaint to ..? And what does the Russian government have to do with it?
Did someone give you special guarantees for something?
Eбнyтый кaкoй-то чeл...)) Интерпол и НАТО еще подключи, дoлбoeб...

"Сторонний exe" вывести в форме нельзя. Можно вывести окно с помощью FindFindow и SetParent.

WM_POWERBROADCAST - это фильтр сообщений питания для ловушки SetWindowHookEx. В собираемый проект никак не засунуть, только если написать отдельную DLL.

WMI - это высокоуровневая обертка (не имеет ничео общего с фильром). Чтобы поймать в ней сообщение питания - надо закрутить вечный цикл и занять половину процессорного времени. Оно вам надо?

Как вы это определили?

Ну а как запросы выполнять к шифрованным данным..?

А мне кажется что ТС-у надо правильно формулировать вопросы...
https://www.gunsmoker.ru/2008/10/x-y-z.html?m=1

Для чего?