Hallo zusammen,
ich bin einen Schritt weiter.
<--
Delphi-Quellcode:
function SMMessageDlg(const sText, cText: AnsiString; aType: Cardinal): Word;
var
pText, pCaption: PWideChar;
begin
try
GetMem(pText, Length(sText)+1);
GetMem(pCaption, Length(cText)+1);
StrPCopy(pText, sText);
StrPCopy(pCaption, cText);
result := MessageBox(0, pText, pCaption, aType);
finally
FreeMem(pText, Length(sText)+1);
FreeMem(pCaption, Length(cText)+1);
end;
end;
-->
Diese Funktion habe ich mir vor Jahren mal geschrieben um das Problem zu umgehen, dass die Standard-Dialoge von Delphi die Benutzeroberfläche von XP und Nachfolgern nicht unterstützte und die Buttons dann aussahen wie unter W9x.
Ich habe die Funktion zwar angepasst (PWideChar und AnsiString), aber offensichtlich kommt der Fehler immer noch dadurch zustande. Kurrioserweise funktioniert die Funktion, die Fehler kommen erst hinterher.
Any Idea?
Gruß
Stefan