Grafik in Resource zur Laufzeit ersetzen...

[FriFra]

Delphi-Quellcode:

var
  { Resourcen überschreiben }
  PMsgDlgOK, PMsgDlgAbort, PMsgDlgYes, PMsgDlgNo, PMsgDlgWarning, PMsgDlgError,
    PMsgDlgInformation, PMsgDlgConfirm: array[0..255] of AnsiChar;

...

  try
    { B E G I N N - Vorblegte Resourcen überschreiben }
    { Hookvariablen initialisieren }
    PMsgDlgOK := #0;
    PMsgDlgAbort := #0;
    PMsgDlgYes := #0;
    PMsgDlgNo := #0;
    PMsgDlgWarning := #0;
    PMsgDlgError := #0;
    PMsgDlgInformation := #0;
    PMsgDlgConfirm := #0;
    { Hookvariablen belegen }
    StrCopy(PMsgDlgOK, PAnsiChar(GetResTxt(LangDll, 1)));
    StrCopy(PMsgDlgAbort, PAnsiChar(GetResTxt(LangDll, 2)));
    StrCopy(PMsgDlgYes, PAnsiChar(GetResTxt(LangDll, 3)));
    StrCopy(PMsgDlgNo, PAnsiChar(GetResTxt(LangDll, 4)));
    StrCopy(PMsgDlgWarning, PAnsiChar(GetResTxt(LangDll, 5)));
    StrCopy(PMsgDlgError, PAnsiChar(GetResTxt(LangDll, 6)));
    StrCopy(PMsgDlgInformation, PAnsiChar(GetResTxt(LangDll, 7)));
    StrCopy(PMsgDlgConfirm, PAnsiChar(GetResTxt(LangDll, 8)));
    { Hookvariablen einschleusen }
    HookResourceString(@SMsgDlgOK, PMsgDlgOK);
    HookResourceString(@SMsgDlgAbort, PMsgDlgAbort);
    HookResourceString(@SMsgDlgCancel, PMsgDlgAbort);
    HookResourceString(@SMsgDlgYes, PMsgDlgYes);
    HookResourceString(@SMsgDlgNo, PMsgDlgNo);
    HookResourceString(@SMsgDlgWarning, PMsgDlgWarning);
    HookResourceString(@SMsgDlgError, PMsgDlgError);
    HookResourceString(@SMsgDlgInformation, PMsgDlgInformation);
    HookResourceString(@SMsgDlgConfirm, PMsgDlgConfirm);
    { E N D E - Vorblegte Resourcen überschreiben }

...