🚀 go-pugleaf

Wow.... :^)
// and after file (with name of sResultFilePath value) contains output of
dcc32
"File (with name of sResultFilePath value) contains OUTPUT of dcc32" - its
means, what this file CONTAINS LOG OF COMPILE PROCESS, and correct call for
this function like this:
===============
s := 'H:\Delphi 7 Projects\Commad Line test\Project2.dpr';
ExecDcc32(ExtractFilePath(s), '-Q -B', s, 'H:\Delphi 7 Projects\Commad Line
Test\Project2.err');
===============
Dcc32 by DEFAULT create result file H:\Delphi 7 Projects\Commad Line
Test\Project2.EXE
and now you can analyze contents of  'H:\Delphi 7 Projects\Commad Line
Test\Project2.err, what's happened during compile process...
P.S.: And again - sorry for my bad English...




> s := 'H:\Delphi 7 Projects\Commad Line test\Project2.dpr';
> ExecDcc32(ExtractFilePath(s), '-Q -B', s, 'H:\Delphi 7 Projects\Commad
Line
> Test\Project2.exe');
> end;
>
> Venkatesh
>
> "��������" <tolik@protoka.kiev.ua> wrote in message
> news:433422e3$1@newsgroups.borland.com...
> >
> > s := 'D:\MyProj\MyProg.dpk';
> > ExecDcc32(ExtractFilePath(s), '-Q -B', s, sResultFilePath);
> > // and after file (with name of sResultFilePath value) contains output
of
> > dcc32
> >
> > "Venkatesh VT" <venks@vsnl.com> �������/�������� � �������� ���������:
> > news:4333ee55@newsgroups.borland.com...
> > > Can you just give an example of how to call the function
> > > ExecDcc32(const aDccDir, aOptions, aProjectPath,
> > > >   aErrorPath: String): Boolean;
> > > I am not too sure what is working catalog?
> > > Venkatesh
> > > "��������" <tolik@protoka.kiev.ua> wrote in message
> > > news:4333a452@newsgroups.borland.com...
> > > > I'm sorry: version with check path NOT WORKING.
> > > > Belove function is right: :) with comments for params...
> > > > Sorry for my bad English...
> > > >
> > > > function ExecDcc32(const aDccDir, aOptions, aProjectPath,
> > > >   aErrorPath: String): Boolean;
> > > > //aDccDir : working catalog, which be set,  before running dcc32
> > > > //aOptions: dcc32 options. For more information see output of dcc32
> > > without
> > > > params
> > > > //aProjectPath: path to project, which will be compiled. For
example:
> > > > D:\MyProject\MyProg.dpr
> > > > //aErrorPath: filename of file with dcc32 output
> > > >   // Returns string containing path to Delphi command line compiler
> > > >   function GetCompilerPath: string;
> > > >   var
> > > >     Reg: TRegistry;
> > > >   begin
> > > >     Reg := TRegistry.Create;
> > > >     try
> > > >       with Reg do begin
> > > >         RootKey := HKEY_LOCAL_MACHINE;
> > > >         OpenKey('\SOFTWARE\Borland\Delphi\5.0', False);
> > > >         Result := ExpandFileName(ReadString('RootDir') +
> > > '\bin\dcc32.exe');
> > > >       end;
> > > >       if AnsiPos(' ', Result) <> 0 then
> > > >         Result := ExtractShortPathName(Result);
> > > >     finally
> > > >       Reg.Free;
> > > >     end;
> > > >   end;
> > > > var
> > > >   CurDir:      String;
> > > >   DccDir:      String;
> > > >   StartupInfo: TStartupInfo;
> > > >   ProcessInfo: TProcessInformation;
> > > >   hStdOut:     THandle;
> > > >   SecurAtt:    TSecurityAttributes;
> > > >   ResultCode:  Cardinal;
> > > >   i:           Integer;
> > > >   s:           String;
> > > >  Dcc32Path:   String;
> > > > begin
> > > >   Result := True;
> > > >   DccDir := aDccDir;
> > > >   i      := Length(DccDir);
> > > >   assert(i <> 0);
> > > >   if DccDir[i] in ['/','\'] then
> > > >     SetLength(DccDir, i - 1);
> > > >   CurDir := GetCurrentDir;
> > > >   if DccDir <> ''
> > > >     then if not SetCurrentDir(DccDir)
> > > >       then raise Exception.Create(SCantChangeDir + DccDir);
> > > >   try
> > > >     hStdOut := INVALID_HANDLE_VALUE;
> > > >     try
> > > >       with SecurAtt do begin
> > > >         nLength              := SizeOf(SecurAtt);
> > > >         lpSecurityDescriptor := nil;
> > > >         bInheritHandle       := BOOL(True);
> > > >       end;
> > > >      hStdOut := CreateFile(PChar(aErrorPath), GENERIC_WRITE, 0,
> > > >         @SecurAtt, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
> > > >       if hStdOut = INVALID_HANDLE_VALUE then
> > > >         raise Exception.Create(SCantCreateFile + aErrorPath);
> > > >       ZeroMemory(@StartupInfo, SizeOf(StartupInfo));
> > > >       with StartupInfo do begin
> > > >         cb          := SizeOf(StartupInfo);
> > > >         dwFlags     := STARTF_USESHOWWINDOW or STARTF_USESTDHANDLES;
> > > >         wShowWindow := SW_HIDE;
> > > >         hStdOutput  := hStdOut;
> > > >       end;
> > > >       s := 'dcc32.exe ' + aOptions + ' ' + aProjectPath;
> > > >       Dcc32Path := GetCompilerPath;
> > > >       if not CreateProcess(PChar(Dcc32Path),
> > > >         PChar(s), @SecurAtt, @SecurAtt,
> > > >         BOOL(True), 0, nil, PChar(DccDir), StartupInfo, ProcessInfo)
> > then
> > > >         raise Exception.Create(SCantCreateProcess + Dcc32Path);
> > > >       WaitForSingleObject(ProcessInfo.hProcess, INFINITE);
> > > >       ResultCode := 0;
> > > >       GetExitCodeProcess(ProcessInfo.hProcess, ResultCode);
> > > >       result := ResultCode = 0;
> > > >     finally
> > > >       if hStdOut <> INVALID_HANDLE_VALUE then
> > > >         CloseHandle(hStdOut);
> > > >     end;
> > > >   finally
> > > >     SetCurrentDir(CurDir);
> > > >   end;
> > > > end;
> > > >
> > > >
> > >
> > >
> >
> >
>
>