BorlandTalk.com

Vedge2000 · Guest

Hello,

My software is in French but I want to use in german and English. I
woulnd't use the translator of Delphi because the user can't increase
the dictionary himselft.

I wouldn't use a composant (problem with migration, version between
developper computer).

I fund how to force the translate of ResourceString

Function ChangeResourceString( resstring: PResStringRec; newvalue:
Pchar ): Boolean;
Var
oldprotect: DWORD;
Begin
Result := false;
{$IFDEF LINUX}This function does not work in Kylix!{$ENDIF}
If resstring = nil Then Exit;
Assert( Assigned( newvalue ),
'ChangeResourceString: newvalue must be <> nil');

Result := VirtualProtect(
resstring,
Sizeof( resstring^ ),
PAGE_EXECUTE_READWRITE,
@oldProtect );
If Result Then Begin
resstring^.Identifier := Integer( newvalue );
VirtualProtect( resstring,
Sizeof( resstring^ ),
oldProtect,
@oldProtect );
End; { If }
End;

I use like this :

Function ChangeResourceString( MY_RESOURCESTRING,
NEW_MY_RESOURCESTRING);

But i can't translate the const of Yes, No, All,.. of all MessageDlg?

Somebody know how to do it?

Thanks

Riki Wiki · Guest

On 27 Sep 2006 23:12:29 -0700, Vedge2000 wrote: