Ahi lo probe. Quedo mas o menos asi :
SearchPath := Registry.ReadString('\Software\Borland\Delphi\7.0\Library\SearchPath', False);
SearchPath := StringReplace(SearchPath, '$(Delphi)', 'c:\Archivos de Programa\Borland\Delphi7', [rfReplaceAll]);
SearchPath := StringReplace(SearchPath, '$(ProgramFiles)', 'c:\Archivos de Programa', [rfReplaceAll]);
SetEnvironmentVariable('RUTACOM', PChar(Searchpath));
RunCommand('dcc32 -$D- -$L- -$Y- -$M- -B -I"%rutaCOM%" -U"%rutaCOM%" ' + dpr.Name);
Lamentablemente me sigue tirando el mismo problema de package rtl not found.
__________________
Al infierno se llega por atajos.
Última edición por juanmdq fecha: 25-01-2008 a las 13:41:32.
|