From 534eefa7029aaf49b0b673b6f6fb630752bb3fd5 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Wed, 18 Mar 2015 07:13:47 +0000
Subject: Pascal: service executing fix)

git-svn-id: http://svn.miranda-ng.org/main/trunk@12427 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Utils.pas/syswin.pas | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'plugins/Utils.pas/syswin.pas')

diff --git a/plugins/Utils.pas/syswin.pas b/plugins/Utils.pas/syswin.pas
index 082e1444d5..361404cc11 100644
--- a/plugins/Utils.pas/syswin.pas
+++ b/plugins/Utils.pas/syswin.pas
@@ -62,7 +62,11 @@ function ExecuteWaitW(AppPath:PWideChar; CmdLine:PWideChar=nil; DfltDirectory:PW
 var
   flags: dword;
   {$IFDEF FPC}
+    {$IFDEF VER2}
   Startup: StartupInfo;
+    {$ELSE}
+  Startup: StartupInfoW;
+    {$ENDIF}
   {$ELSE}
   Startup: StartupInfoW;
   {$ENDIF}
@@ -125,7 +129,11 @@ function ExecuteWait(AppPath:PAnsiChar; CmdLine:PAnsiChar=nil; DfltDirectory:PAn
 var
   flags: dword;
   {$IFDEF FPC}
+    {$IFDEF VER2}
   Startup: StartupInfo;
+    {$ELSE}
+  Startup: StartupInfoA;
+    {$ENDIF}
   {$ELSE}
   Startup: StartupInfoA;
   {$ENDIF}
-- 
cgit v1.2.3