From 5814bd027db6fee3243b434da96661d7b3e8f718 Mon Sep 17 00:00:00 2001
From: SungDong Kim <acroedit@gmail.com>
Date: Tue, 21 Feb 2017 17:42:18 +0900
Subject: [PATCH] Fixed a character encoding problem of Application.MessageBox
 method in Unicode Delphi (#146)

---
 Source/uPSC_forms.pas | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/Source/uPSC_forms.pas b/Source/uPSC_forms.pas
index 71d10b0..630785d 100644
--- a/Source/uPSC_forms.pas
+++ b/Source/uPSC_forms.pas
@@ -171,7 +171,11 @@ begin
 {$IFDEF PS_PANSICHAR}
     RegisterMethod('function MessageBox(Text,Caption: PAnsiChar; Flags: Word): Integer');
 {$ELSE}
+{$IFDEF UNICODE}
+    RegisterMethod('function MessageBox(Text,Caption: string; Flags: Word): Integer');
+  {$ELSE}
     RegisterMethod('function MessageBox(Text,Caption: PChar; Flags: Word): Integer');
+  {$ENDIF}
 {$ENDIF}
     RegisterMethod('procedure Minimize');
     RegisterMethod('procedure ProcessMessages');