From 5e1234ce647a66915353c5c838363b1b67ebfac0 Mon Sep 17 00:00:00 2001 From: George Hazan Date: Wed, 1 Nov 2023 12:56:12 +0300 Subject: unused ANSI service MS_FILE_GETRECEIVEDFILESFOLDER removed --- plugins/HistoryPlusPlus/EventDetailForm.pas | 4 ++-- plugins/HistoryPlusPlus/GlobalSearch.pas | 4 ++-- plugins/HistoryPlusPlus/HistoryForm.pas | 4 ++-- plugins/HistoryPlusPlus/hpp_externalgrid.pas | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) (limited to 'plugins/HistoryPlusPlus') diff --git a/plugins/HistoryPlusPlus/EventDetailForm.pas b/plugins/HistoryPlusPlus/EventDetailForm.pas index eedae3bc66..06bffc478d 100644 --- a/plugins/HistoryPlusPlus/EventDetailForm.pas +++ b/plugins/HistoryPlusPlus/EventDetailForm.pas @@ -676,10 +676,10 @@ end; procedure TEventDetailsFrm.BrowseReceivedFilesClick(Sender: TObject); var - Path: Array [0 .. MAX_PATH] of AnsiChar; + Path: Array [0 .. MAX_PATH] of WideChar; begin CallService(MS_FILE_GETRECEIVEDFILESFOLDER, FParentForm.hContact, LPARAM(@Path)); - ShellExecuteA(0, 'open', Path, nil, nil, SW_SHOW); + ShellExecuteW(0, 'open', Path, nil, nil, SW_SHOW); end; procedure TEventDetailsFrm.ETextURLClick(Sender: TObject; const URLText: String; Button: TMouseButton); diff --git a/plugins/HistoryPlusPlus/GlobalSearch.pas b/plugins/HistoryPlusPlus/GlobalSearch.pas index 2ae098591a..b7cafc091e 100644 --- a/plugins/HistoryPlusPlus/GlobalSearch.pas +++ b/plugins/HistoryPlusPlus/GlobalSearch.pas @@ -2450,12 +2450,12 @@ end; procedure TfmGlobalSearch.BrowseReceivedFilesClick(Sender: TObject); var - Path: Array [0 .. MAX_PATH] of AnsiChar; + Path: Array [0 .. MAX_PATH] of WideChar; hContact: THandle; begin hContact := GetSearchItem(hg.Selected).Contact.Handle; CallService(MS_FILE_GETRECEIVEDFILESFOLDER, hContact, LParam(@Path)); - ShellExecuteA(0, 'open', Path, nil, nil, SW_SHOW); + ShellExecuteW(0, 'open', Path, nil, nil, SW_SHOW); end; procedure TfmGlobalSearch.tbEventsClick(Sender: TObject); diff --git a/plugins/HistoryPlusPlus/HistoryForm.pas b/plugins/HistoryPlusPlus/HistoryForm.pas index 3b50cfe5a5..ad1bc32035 100644 --- a/plugins/HistoryPlusPlus/HistoryForm.pas +++ b/plugins/HistoryPlusPlus/HistoryForm.pas @@ -3796,10 +3796,10 @@ end; procedure THistoryFrm.BrowseReceivedFilesClick(Sender: TObject); var - Path: Array [0 .. MAX_PATH] of AnsiChar; + Path: Array [0 .. MAX_PATH] of WideChar; begin CallService(MS_FILE_GETRECEIVEDFILESFOLDER, hContact, lParam(@Path)); - ShellExecuteA(0, 'open', Path, nil, nil, SW_SHOW); + ShellExecuteW(0, 'open', Path, nil, nil, SW_SHOW); end; procedure THistoryFrm.hgOptionsChange(Sender: TObject); diff --git a/plugins/HistoryPlusPlus/hpp_externalgrid.pas b/plugins/HistoryPlusPlus/hpp_externalgrid.pas index b67e82c1f6..197b91db89 100644 --- a/plugins/HistoryPlusPlus/hpp_externalgrid.pas +++ b/plugins/HistoryPlusPlus/hpp_externalgrid.pas @@ -1329,12 +1329,12 @@ end; procedure TExternalGrid.OnBrowseReceivedFilesClick(Sender: TObject); var - Path: Array [0 .. MAX_PATH] of AnsiChar; + Path: Array [0 .. MAX_PATH] of WideChar; begin if Grid.Selected = -1 then exit; CallService(MS_FILE_GETRECEIVEDFILESFOLDER, Items[Grid.Selected].hContact,LParam(@Path)); - ShellExecuteA(0, 'open', Path, nil, nil, SW_SHOW); + ShellExecuteW(0, 'open', Path, nil, nil, SW_SHOW); end; end. -- cgit v1.2.3