paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 03:27:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

TaskDialog: do not write to console (fix)

Browse Source
This commit is contained in:
Ondrej Pokorny 2023-08-23 14:55:05 +02:00
parent e6fc6dca77
commit d556038c01
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfaces/win32/win32wsdialogs.pp
View File

@ -19,6 +19,8 @@ unit Win32WSDialogs;
{$mode objfpc}{$H+}
{$I win32defines.inc}
{.$DEFINE VerboseTaskDialog}
interface
uses
@ -1992,6 +1994,9 @@ procedure InitTaskDialogIndirect;
var
OSVersionInfo: TOSVersionInfo;
Res: HRESULT;
{$IFDEF VerboseTaskDialog}
DbgOutput: string;
{$ENDIF}
begin
//There is no need to get the address of TaskDialogIndirect.
//CommCtrl already has TaskDialogIndirect, which returns E_NOTIMPL if this function is not available in 'comctl32.dll'
@ -2001,14 +2006,16 @@ begin
Res := TaskDialogIndirect(nil,nil,nil,nil);
{$IFDEF VerboseTaskDialog}
DebugLn('InitTaskDialogIndirect: TaskDialogIndirect(nil,nil,nil,nil)=$',LongInt(Res).ToHexString);
if (Res = E_INVALIDARG) then DebugLn(' (=E_INVALIDARG)') else writeln;
DbgOutput := 'InitTaskDialogIndirect: TaskDialogIndirect(nil,nil,nil,nil)=$' + LongInt(Res).ToHexString;
if (Res = E_INVALIDARG) then
DbgOutput := DbgOutput + ' (=E_INVALIDARG)';
DebugLn(DbgOutput);
{$ENDIF}
TaskDialogIndirectAvailable := (Res = E_INVALIDARG);//(Res <> E_NOTIMPL);
{$IFDEF VerboseTaskDialog}
DebugLn('InitTaskDialogIndirect: TaskDialogIndirectAvailable=',TaskDialogIndirectAvailable);
DebugLn('InitTaskDialogIndirect: TaskDialogIndirectAvailable='+BoolToStr(TaskDialogIndirectAvailable, True));
{$ENDIF}
//OSVersionInfo.dwOSVersionInfoSize := sizeof(OSVersionInfo);