"Don't ask again" Messagedialog ?

[himitsu]

@v2afrank: bei deinem RegVal solltest du noch aufpassen ... PChar ist ja dynamisch


Aber die API würde ich besser so implementieren, dann klappts hoffentlich überall

Delphi-Quellcode:

function MessageBoxCheck(hWnd: HWND; Text, Title: PChar; dwType: LongWord;
  Default: Integer; RegVal: PChar): Integer; stdcall;
function MessageBoxCheckA(hWnd: HWND; Text, Title: PAnsiChar; dwType: LongWord;
  Default: Integer; RegVal: PAnsiChar): Integer; stdcall;
function MessageBoxCheckW(hWnd: HWND; Text, Title: PWideChar; dwType: LongWord;
  Default: Integer; RegVal: PWideChar): Integer; stdcall;

function MessageBoxCheck;  external 'shlwapi.dll' index {$IF SizeOf(Char) = 1}185{$ELSE}191{$IFEND};
function MessageBoxCheckA; external 'shlwapi.dll' index 185;
function MessageBoxCheckW; external 'shlwapi.dll' index 191;

PS: http://msdn.microsoft.com/en-us/library/bb773836.aspx