как играя со строками

из ip адреса вывести последние цифры

s :=Copy(s, 1, Pos(‘.’, s));

скаежем ip Адрес у ПК 192.168.108.14

нужно вывести 108.14

или 11.14.105.15

то выводом 105.15

причем нужны оба варианта 105.15 и 10515

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

Как вставить с помощью ButtonClick символ диаметра в поле RichEdit. Не понимаю как сделать, чтобы Delphi 7 понимал Unicode. Объясните, пожалуйста….
У меня программа, в которой вводится текст в простой Edit. Нужно, с помощью кнопки Button вставлять символ диаметра в место, где находится курсор. Почитав я так понял что в простом Edit это нельзя сделать, т.к. не поддерживает символы из Unicode.

procedure TMainForm.diametr1Click(Sender: TObject);
var diam1: WideString;

begin

//diam1:=WideChar(#0216);
//diam1:=WideChar($00C18);
diam1:=WideChar($#2300);
//diam1:=WideChar(#$U+2300);

diam.SetSelTextBuf(PChar(diam1));

end;

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

Как поменять иконки все папок Windows 11 со стандартной желтой на свою?
По одной папке умею менять. Хочу поменять все и плюс новые когда будут создавать, чтобы с моей иконкой создавались.

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

Есть подписанный ЭЦП драйвер WinIo 3.0 для доступа к портам и мапинга физической памяти для 32/64-разрадяных Windows. Драйвер с открытым исходным кодом и является весьма популярным.

На Delphi 7 я воспроизвёл код установки драйвера в системе и обращение к нему через DeviceIoControl. Драйвер успешно зарегистрировался в Service Control Manager, запустился через StartService, успешно возвратил хэндл через CreateFile и даже смог считать и писать порты ввода-вывода, как под Windows 11 x64, так и Windows 7 32-bit.

Однако если попытаться замапить память через MapPhysToLin, то драйвер возвращает совсем не то, что нужно. Код мапинга очень простой и ошибки здесь нет:

type
  TtagPhysStruct = packed record
    dwPhysMemSizeInBytes : Int64; //Number of bytes to map
    pvPhysAddress : Int64;        //Physical address to be mapped
    PhysicalMemoryHandle : Int64; //Handle to a section returned by ZwOpenSection
    pvPhysMemLin : Int64;         //Pointer to a variable that receives the base address of the view
    pvPhysSection : Int64;
  end;

function MapPhysToLin(var PhysStruct: TtagPhysStruct) : Int64;
var
  dwBytesReturned : DWORD;
begin
  if not DeviceIoControl(hDriver,
                         IOCTL_WINIO_MAPPHYSTOLIN, //IOCTL 0x810
                         @PhysStruct,
                         SizeOf(TtagPhysStruct),
                         @PhysStruct,
                         SizeOf(TtagPhysStruct),
		         dwBytesReturned,nil)
    then Result:=0
      else Result:=PhysStruct.pvPhysMemLin;

Поэтому я решился попробовать замапить память через прилагаемую к драйверу библиотеку WinIo32.dll, которая экспортирует функцию GetPhysLong. Данная функция возвращает значение типа DWORD, записанное по определённому адресу в физической памяти.

var
  dllGetPhysLong: function (pbPhysAddr: PByte; out pdwPhysVal: PDWORD): Boolean; stdcall;
  dllInitializeWinIo: function : Boolean; stdcall;

procedure TForm1.Button2Click(Sender: TObject);
var
  hLibrary: THandle;
  hBuffer : PDWORD;
begin
  hBuffer:=0;
  hLibrary:=LoadLibrary('WinIo32.dll');
  if hLibrary > HINSTANCE_ERROR then
  begin
    @dllInitializeWinIo:=GetProcAddress(hLibrary, 'InitializeWinIo');
    @dllGetPhysLong:=GetProcAddress(hLibrary, 'GetPhysLong');
    if @dllInitializeWinIo <> nil then
      if dllInitializeWinIo then
        if @dllGetPhysLong <> nil then
        begin
          if dllGetPhysLong(Ptr($C0000),hBuffer) then
            ShowMessage(IntToHex(DWORD(hBuffer),8))
            else ShowMessage('Error '+IntToHex(GetLastError,8));;
        end;
    FreeLibrary(hLibrary);
  end;
end;

В коде выше я считываю 4 байта под адресу 0xC0000 (видеопамять). По этому адресу записано 0хE972AA55, которое успешно и возвращается при нажатии на кнопку. Но юзать DLL-ку мне не хочется. Хотелось бы воспроизвести все функции в своём коде самостоятельно.

Есть подозрение, что в С++ своя особенная упаковка структуры TtagPhysStruct:

#pragma pack(push)
#pragma pack(1)

struct tagPhysStruct
{
	DWORD64 dwPhysMemSizeInBytes;
	DWORD64 pvPhysAddress;
	DWORD64 PhysicalMemoryHandle;
	DWORD64 pvPhysMemLin;
	DWORD64 pvPhysSection;
};

#pragma pack(pop)

#endif

В общем, если кому-то уже ранее удалось портировать WinIo на Delphi, то я был бы рад любой помощи!

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

Ищу рабочие примеры с правильным использованием FindFirst, FindNext.

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

На моей мышке есть дополнительные две кнопки
Вопрос: как в D7 отловить их нажатие, чтобы использовать в своей программе?

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

Посмотрел курсы программистов. В одном из курсов написано, что продолжительность курса — 40 академических часов. Что-то мне подсказывает, что за 40 часов вряд ли можно серьезно погрузиться в тему. Или я ошибаюсь? И там действительно можно получить что-то полезное.

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

Прошерстил много подобных задач но везде ищут дубликаты и удаляют, оставляя при этом одну строку. Мне же в моей задаче нужно находить дубликаты (полностью идентичные строки в которых все значения во всех столбцах совпадают) и удалять и исходную строку и дублера. Оставив только уникальные строки у которых изначально во всем диапазоне не было дубликатов.

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

Как в powershell создать процесс, а в нем два потока? Первый поток вызывает утилиту на компе, второй убивает первый поток спустя 20 секунд после начала его работы (первого потока)?

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

При печати графического файла распечатывается только часть изображения. Подскажите, как вывести на печать все изображение?
Использовал такой код:

 using (var pd = new System.Drawing.Printing.PrintDocument())
            {
                               pd.PrintPage += (o, en) =>
                {
                    var img = System.Drawing.Image.FromFile(@"D:\Scan.jpg");

                    en.Graphics.DrawImage(img, new Point(100, 100));
                };
                pd.DefaultPageSettings.Landscape = true;
                pd.Print();

            }

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