diff options
| author | George Hazan <george.hazan@gmail.com> | 2023-11-01 12:56:12 +0300 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2023-11-01 12:56:12 +0300 |
| commit | 5e1234ce647a66915353c5c838363b1b67ebfac0 (patch) | |
| tree | 3d4f134f9f0a901163ddfc35e5c2ffacc0db0693 /plugins/HistoryPlusPlus | |
| parent | ccd47813d774540317912de65e0ffb4300dbfbb9 (diff) | |
unused ANSI service MS_FILE_GETRECEIVEDFILESFOLDER removed
Diffstat (limited to 'plugins/HistoryPlusPlus')
| -rw-r--r-- | plugins/HistoryPlusPlus/EventDetailForm.pas | 4 | ||||
| -rw-r--r-- | plugins/HistoryPlusPlus/GlobalSearch.pas | 4 | ||||
| -rw-r--r-- | plugins/HistoryPlusPlus/HistoryForm.pas | 4 | ||||
| -rw-r--r-- | plugins/HistoryPlusPlus/hpp_externalgrid.pas | 4 |
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.
|