Browse Source

* Exec(ansistring) function

marco 21 years ago
parent
commit
5d49357d80
1 changed files with 7 additions and 1 deletions
  1. 7 1
      rtl/objpas/sysutils/osutilsh.inc

+ 7 - 1
rtl/objpas/sysutils/osutilsh.inc

@@ -16,10 +16,16 @@
 { OS handling utilities }
 { OS handling utilities }
 
 
 Function GetEnvironmentVariable(Const EnvVar : String) : String;
 Function GetEnvironmentVariable(Const EnvVar : String) : String;
+{$ifdef HAS_EXEC_ANSI}	// define is temporarily.
+function Exec (Const Path: AnsiString; Const ComLine: AnsiString):integer;  
+{$endif}
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.1  2003-10-06 21:01:06  peter
+  Revision 1.2  2004-01-03 08:55:58  marco
+   * Exec(ansistring) function
+
+  Revision 1.1  2003/10/06 21:01:06  peter
     * moved classes unit to rtl
     * moved classes unit to rtl
 
 
   Revision 1.3  2002/09/07 16:01:22  peter
   Revision 1.3  2002/09/07 16:01:22  peter