4 files changed, 8 insertions, 8 deletions
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.