#pas
unit hiStrCat;
{$IFDEF FPC}{$H+}{$ENDIF}//<-$longstrings on
interface...

#pas
function StringToCode(const s:string):string;
var i:integer; intostr:bool;
begin
  //if Length(s) > 254 then begin
  //  Result := 'PChar(LoadResData(''' + cgt.resAddStr(PChar(s)) + '''))';
  //  exit;
  //end;
  Result := 'PChar(';
  intostr := false;
  for i := 1 to Length(s) do
    if ord(s[i])<32 then begin
      if intostr then Result := Result + '''';
      Result := Result + '#' + Int2Str(ord(s[i]));
      intostr := false;
    end else begin
      if not intostr then Result := Result + '''';
      if s[i]='''' then Result := Result + '''';
      Result := Result + s[i];
      intostr := true;
    end;
  if intostr then Result := Result + '''';
  Result := Result + '#0)';
end;

function LoadResData;
var
  hResource: NativeInt;
begin
   //s := 'hello world';
   //Result := @s[1];
   hResource := LoadResource( hInstance, FindResource(hInstance,PChar(name), PChar(100)));
   Result := LockResource(hResource);
   FreeResource(hResource);
end;