Changeset 29 for trunk/Compiler/UCompilerC.pas
- Timestamp:
- Feb 13, 2012, 7:21:04 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Compiler/UCompilerC.pas
r28 r29 6 6 7 7 uses 8 Classes, SysUtils, FileUtil, UCompiler, Process ;8 Classes, SysUtils, FileUtil, UCompiler, Process, Dialogs; 9 9 10 10 type … … 124 124 Process := TProcess.Create(nil); 125 125 Process.CurrentDirectory := ExtractFilePath(CompilerPath); 126 Process.CommandLine := '"' + CompilerPath + '" "' + CompiledFile + '"-o ' +127 ExtractFilePath(CompiledFile) + ExtractFileNameOnly(CompiledFile) + CompiledExtension;126 Process.CommandLine := LongFileName(CompilerPath) + ' ' + LongFileName(CompiledFile) + ' -o ' + 127 LongFileName(ExtractFilePath(CompiledFile) + ExtractFileNameOnly(CompiledFile) + CompiledExtension); 128 128 Process.Options := [poWaitOnExit]; 129 129 Process.Execute;
Note:
See TracChangeset
for help on using the changeset viewer.