Delphi - Messagebox mit Checkbox: Diesen Dialog nicht mehr anzeigen
{
Author : http://developer.luckie-online.de
Date : 2005-05-02
License : PUBLIC DOMAIN
}
function MessageBoxCheck(hWnd: THandle; Text: PChar; Title: PChar;
dwType: DWORD; Default: Integer; RegVal: PChar): Integer;
type
TSHMessageBoxCheck = function(hWnd: THandle; Text: PChar; Title: PChar;
dwType: DWORD; Default: Integer; RegVal: PChar): Integer; stdcall;
var
hLib: THandle;
SHMessageboxCheck: TSHMessageBoxCheck;
begin
hLib := LoadLibrary('shlwapi.dll');
if hLib <> 0 then
begin
@SHMessageboxCheck := GetProcAddress(hLib, PChar(185));
if Assigned(SHMessageboxCheck) then
begin
result := SHMessageboxCheck(hWnd, Text, Title, dwType, 0, RegVal);
end
else
result := GetLastError;
end
else
result := GetLastError;
FreeLibrary(hLib);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
MessageBoxCheck(Handle, 'Dies ist nur ein Testtext.',
'Und dies ist der Titel', MB_OK or MB_ICONINFORMATION, 0,
'2A622957-D0A5-41CA-8571-898247531A2C');
end;