diff options
| author | George Hazan <george.hazan@gmail.com> | 2023-12-13 20:19:46 +0300 |
|---|---|---|
| committer | George Hazan <george.hazan@gmail.com> | 2023-12-13 20:19:46 +0300 |
| commit | 054bb1949247445a29a68812579800904edf6a02 (patch) | |
| tree | 6aecd3e738de818d45e703325b17f571baf02ee0 /plugins/HistoryPlusPlus | |
| parent | 7657cf3cd9f3ae33e29091a947d76234997ebfd9 (diff) | |
MS_FILE_* services became useless since StdFile died
Diffstat (limited to 'plugins/HistoryPlusPlus')
| -rw-r--r-- | plugins/HistoryPlusPlus/EventDetailForm.pas | 2 | ||||
| -rw-r--r-- | plugins/HistoryPlusPlus/GlobalSearch.pas | 2 | ||||
| -rw-r--r-- | plugins/HistoryPlusPlus/HistoryForm.pas | 2 | ||||
| -rw-r--r-- | plugins/HistoryPlusPlus/hpp_externalgrid.pas | 2 |
4 files changed, 4 insertions, 4 deletions
diff --git a/plugins/HistoryPlusPlus/EventDetailForm.pas b/plugins/HistoryPlusPlus/EventDetailForm.pas index 06bffc478d..9e9029cc9c 100644 --- a/plugins/HistoryPlusPlus/EventDetailForm.pas +++ b/plugins/HistoryPlusPlus/EventDetailForm.pas @@ -678,7 +678,7 @@ procedure TEventDetailsFrm.BrowseReceivedFilesClick(Sender: TObject); var
Path: Array [0 .. MAX_PATH] of WideChar;
begin
- CallService(MS_FILE_GETRECEIVEDFILESFOLDER, FParentForm.hContact, LPARAM(@Path));
+ GetFileReceivedFolder(FParentForm.hContact, @Path);
ShellExecuteW(0, 'open', Path, nil, nil, SW_SHOW);
end;
diff --git a/plugins/HistoryPlusPlus/GlobalSearch.pas b/plugins/HistoryPlusPlus/GlobalSearch.pas index b7cafc091e..ffc955e3b3 100644 --- a/plugins/HistoryPlusPlus/GlobalSearch.pas +++ b/plugins/HistoryPlusPlus/GlobalSearch.pas @@ -2454,7 +2454,7 @@ var hContact: THandle;
begin
hContact := GetSearchItem(hg.Selected).Contact.Handle;
- CallService(MS_FILE_GETRECEIVEDFILESFOLDER, hContact, LParam(@Path));
+ GetFileReceivedFolder(hContact, @Path);
ShellExecuteW(0, 'open', Path, nil, nil, SW_SHOW);
end;
diff --git a/plugins/HistoryPlusPlus/HistoryForm.pas b/plugins/HistoryPlusPlus/HistoryForm.pas index ad1bc32035..b61f0f0827 100644 --- a/plugins/HistoryPlusPlus/HistoryForm.pas +++ b/plugins/HistoryPlusPlus/HistoryForm.pas @@ -3798,7 +3798,7 @@ procedure THistoryFrm.BrowseReceivedFilesClick(Sender: TObject); var
Path: Array [0 .. MAX_PATH] of WideChar;
begin
- CallService(MS_FILE_GETRECEIVEDFILESFOLDER, hContact, lParam(@Path));
+ GetFileReceivedFolder(hContact, @Path);
ShellExecuteW(0, 'open', Path, nil, nil, SW_SHOW);
end;
diff --git a/plugins/HistoryPlusPlus/hpp_externalgrid.pas b/plugins/HistoryPlusPlus/hpp_externalgrid.pas index 197b91db89..5651b3d57e 100644 --- a/plugins/HistoryPlusPlus/hpp_externalgrid.pas +++ b/plugins/HistoryPlusPlus/hpp_externalgrid.pas @@ -1333,7 +1333,7 @@ var begin
if Grid.Selected = -1 then
exit;
- CallService(MS_FILE_GETRECEIVEDFILESFOLDER, Items[Grid.Selected].hContact,LParam(@Path));
+ GetFileReceivedFolder(Items[Grid.Selected].hContact, @Path);
ShellExecuteW(0, 'open', Path, nil, nil, SW_SHOW);
end;
|