subroutine InitializeFortranModule
!DEC$ ATTRIBUTES  STDCALL, DLLEXPORT :: InitializeFortranModule
!DEC$ ATTRIBUTES  ALIAS: 'InitializeFortranModule'::InitializeFortranModule
open(10,file='dll.log')
open(11,file='raspred.log')
write(10,*)'workspace allocated'
call UMACH(-3,10) !открывает файл номер 10 для вывода сообщений об ошибках
call ERSET(0,1,0) !управляет обработкой ошибок, при 0,1,0 работу не прерывает,выводит сообщение об ошибке
end subroutine InitializeFortranModule

BOOL b, b1, b2;
int r;
HANDLE hwndstdout, hwndstderr, hwndstdin;
int handle;
OFSTRUCT os = {100, 1, 111, 0, 0, "c:\output.fil"};
char msg[] = "Hello world";

void __fastcall TForm1::Button1Click(TObject *Sender)
{
      hwndstdout = GetStdHandle(STD_OUTPUT_HANDLE);
      hwndstderr = GetStdHandle(STD_ERROR_HANDLE);
      hwndstdin  = GetStdHandle(STD_INPUT_HANDLE);
    Memo1->Lines->Add(IntToStr(hwndstdout) + " " +  IntToStr(hwndstderr));

//ЗДесь он возвращает 0 0


      b = AllocConsole();
// Yes! Открывается консоль

      hwndstdout = GetStdHandle(STD_OUTPUT_HANDLE);
      hwndstderr = GetStdHandle(STD_ERROR_HANDLE);
      hwndstdin  = GetStdHandle(STD_INPUT_HANDLE);
    Memo1->Lines->Add(IntToStr(hwndstdout) + " " +  IntToStr(hwndstderr));
//Здесь он возвращает 1 1



      printf("Just create console");
// никаких изменений...

  if ((handle = open("c:\output.fil", O_CREAT | O_TEXT)) == -1)
  {
      perror("Error:");
  }

      b1 = SetStdHandle(STD_ERROR_HANDLE,    &handle);
      b2 = SetStdHandle(STD_OUTPUT_HANDLE,  &handle);

  write(handle, msg, strlen(msg));


  printf("dfkghldfjkgh dfklajghlsdkfjghlsdfkghdlasfjk");
  close(handle);
// никаких изменений в файле и на консоле
}