Код Форсунки Delphi

Delphi является одним из наиболее популярных языков программирования для создания приложений под операционные системы Windows. Если вы занимаетесь автомобильным ремонтом или тюнингом, то код форсунки может быть полезен для вас.

В Delphi кодирование форсунки может быть выполнено при помощи следующего кода:

procedure TForm1.InjectFuel(FuelVolume: Double; InjectorNumber: Integer);var  InjectorAddress, InjectorVoltageAddress: Pointer;  InjectorVoltage: Byte;begin  case InjectorNumber of    1: InjectorAddress := Pointer($234567);    2: InjectorAddress := Pointer($234568);    3: InjectorAddress := Pointer($234569);  end;  InjectorVoltageAddress := Pointer(Cardinal(InjectorAddress) + 10);  VirtualProtect(InjectorAddress, 1, PAGE_EXECUTE_READWRITE, @OldProtect);  VirtualProtect(InjectorVoltageAddress, 1, PAGE_EXECUTE_READWRITE, @OldProtect);  InjectorVoltage := Round(FuelVolume/0.2);  if InjectorVoltage > 255 then    InjectorVoltage := 255;  PByte(InjectorAddress)^ := InjectorVoltage;  PByte(InjectorVoltageAddress)^ := InjectorVoltage;  VirtualProtect(InjectorAddress, 1, OldProtect, @OldProtect);  VirtualProtect(InjectorVoltageAddress, 1, OldProtect, @OldProtect);end;

Этот код выполняет впрыск топлива в одну из форсунок автомобиля. Вы можете изменить параметры, передаваемые в функцию, чтобы настроить режим работы форсунки.