MessageDlg, ResourceString and Delphi 2005

[Vedge2000]

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]

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

> Somebody know how to do it?

Hoi

This newsgroup do not officially exist, that is why there is so few
messages here. Rather use b.p.d.internationalization.win32. Further you
need to repost your message/question on the Borland news server to make
everybody see it.

How to post to Delphi newsgroups:
<http://delphi.wikia.com/wiki/Delphi_Newsgroups>