Resource-File in Tokyo mit TEXT

[HJay]

Zitat von Bernhard Geyer:

GetResourceAsPointer ist keine Standard-Delphi-Funktion die mitgeliefert wird. Wie schaut also GetResourceAsPointer aus?

Delphi-Quellcode:

function GetResourceAsPointer(ResName: pchar; ResType: pchar; out Size: longword): pointer;
    var InfoBlock: HRSRC;
        GlobalMemoryBlock: HGLOBAL;
  begin
    InfoBlock         := FindResource(hInstance, resname, restype); if InfoBlock = 0         then raise Exception.Create(SysErrorMessage(GetLastError));
    size              := SizeofResource(hInstance, InfoBlock);      if size = 0              then raise Exception.Create(SysErrorMessage(GetLastError));
    GlobalMemoryBlock := LoadResource(hInstance, InfoBlock);        if GlobalMemoryBlock = 0 then raise Exception.Create(SysErrorMessage(GetLastError));
    Result            := LockResource(GlobalMemoryBlock);           if Result = nil          then raise Exception.Create(SysErrorMessage(GetLastError));
  end;