akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору #include <stdio.h> #include <windows.h> extern "C" void get_commandline(char * char_buffer) { sprintf(char_buffer, "%s", GetCommandLine()); } //////////////////////////////////////////////////////////////////// implicit none interface subroutine get_commandline(char_buffer) BIND(C) use, intrinsic :: ISO_C_BINDING character(KIND=C_CHAR), dimension(*) :: char_buffer end subroutine get_commandline end interface character(256) str integer strlen call get_commandline(str) write(*,'(A\)') 'command line is: ', trim(adjustl(str)) end | Всего записей: 24130 | Зарегистр. 06-12-2002 | Отправлено: 03:00 19-04-2011 | Исправлено: akaGM, 03:40 19-04-2011 |
|