Problem with PathMatchSpec() for Korean language - delphi

Question

The functions PathMatchSpec() and PathMatchSpecEx() return incorrect results for the Korean language.
In the test program below, the name is "수납파일" and the mask is "수납*".
If the Windows language is e.g. English or German - it works fine.
If the Windows language is Korean, both functions return incorrect results.
How should I use the functions to make them work properly in all languages?
I don't know the Korean language. Tested on Windows 10 and 11 with Delphi 10.4.2.
C++ console:
#include <iostream>
#include <shlwapi.h>
#pragma comment(lib, "Shlwapi.lib")
int main()
{
if (PathMatchSpec(L"수납파일", L"수납*"))
std::cout << "PathMatchSpec success!\n";
else
std::cout << "PathMatchSpec failed!\n";
if (PathMatchSpecEx(L"수납파일", L"수납*", PMSF_NORMAL)==S_OK)
std::cout << "PathMatchSpecEx success!\n";
else
std::cout << "PathMatchSpecEx failed!\n";
}
Test program:
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages,Winapi.ShLwApi,
System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Label2: TLabel;
Edit2: TEdit;
Button1: TButton;
Label3: TLabel;
Button2: TButton;
Label4: TLabel;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function PathMatchSpecEx(pszFile, pszSpec: LPCWSTR; dwFlags: DWORD ): HRESULT; stdcall;
{$EXTERNALSYM PathMatchSpecEx}
var
Form1: TForm1;
implementation
{$R *.dfm}
function PathMatchSpecEx; external 'shlwapi.dll' name 'PathMatchSpecExW';
procedure TForm1.FormCreate(Sender: TObject);
var fileName, fileMask: string;
begin
fileName := '수납파일';
fileMask:= '수납*';
Edit1.Text := fileName;
Edit2.Text := fileMask;
end;
procedure TForm1.Button1Click(Sender: TObject);
var fileName, fileMask: string;
begin
fileName := Edit1.Text;
fileMask := Edit2.Text;
if PathMatchSpecEx(PChar(fileName), PChar(fileMask),0)=S_OK then
Label3.Caption := 'Success!'
else
Label3.Caption := 'PathMatchSpecEx failed!';
end;
procedure TForm1.Button2Click(Sender: TObject);
var fileName, fileMask: string;
begin
fileName := Edit1.Text;
fileMask := Edit2.Text;
if PathMatchSpec(PChar(fileName), PChar(fileMask)) then
Label4.Caption := 'Success!'
else
Label4.Caption := 'PathMatchSpec failed!';
end;
end.

Answer 1

The code page of the source file makes a difference as you said in comments. The following code explains what happened.
#include<windows.h>
#include <iostream>
#include <wchar.h>
#include <shlwapi.h>
#pragma comment(lib, "Shlwapi.lib")
PCHAR convert(PTCHAR p)
{
int size = WideCharToMultiByte(50225, 0, p, -1, NULL, 0, NULL, NULL);
PCHAR c = (PCHAR)malloc(size);
int error = WideCharToMultiByte(50225, 0, p, -1, c, size, NULL, NULL);
if (error == 0)
{
DWORD d = GetLastError();
}
return c;
}
int main()
{
TCHAR a[] = L"수납파일";
TCHAR b[] = L"수납*";
PCHAR c = convert(a);
PCHAR d = convert(b);
//d[9] = '\x2a';
//d[10] = '\x0';
if (PathMatchSpec(a, b))
std::cout << "PathMatchSpec success!\n";
else
std::cout << "PathMatchSpec failed!\n";
if (PathMatchSpecEx(a, b, PMSF_NORMAL) == S_OK)
std::cout << "PathMatchSpecEx success!\n";
else
std::cout << "PathMatchSpecEx failed!\n";
if (PathMatchSpecA(c, d))
std::cout << "PathMatchSpec success!\n";
else
std::cout << "PathMatchSpec failed!\n";
if (PathMatchSpecExA(c, d, PMSF_NORMAL) == S_OK)
std::cout << "PathMatchSpecEx success!\n";
else
std::cout << "PathMatchSpecEx failed!\n";
}
Save the source file in code page 50225.
overall
a
b
Save the source file in Unicode code page 65001.
overall
a
b
c
d\