@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