Another one fix about russian paths. Argh!)

2014-05-07 13:56:53 +00:00
parent 4ed4dc594e
commit 27d22bec0e
5 changed files with 9 additions and 10 deletions
--- a/umain.pas
+++ b/umain.pas
@@ -551,7 +551,7 @@ end;

 procedure TfrmMain.FormCreate(Sender: TObject);
 begin
-  Settings := TSettings.Create(ExtractFilePath(ParamStrUTF8(0)));
+  Settings := TSettings.Create(ExtractFilePath(ParamStr(0)));

  cbbBitMode.Tag := NativeInt($FF);