| Вопрос: Маленький разархиватор | Добавлено: 17.09.04 23:02 |
Автор вопроса:  HACKER
|
| Ответы | Всего ответов: 18 |
|
Номер ответа: 16 Автор ответа: CyRax   Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #16 | Добавлено: 19.09.04 23:26 |
Держи нетерпеливенький ты наш 
http://www.powerbasic.com/support/forums/Forum7/HTML/001042.html А вот здесь офлайн версия форума с поиском. Почти на все случаи жизни http://www.tolkenxp.com/pb/ |
||
|
Номер ответа: 17 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #17 | Добавлено: 19.09.04 23:29 |
| Сама библиотека весит 10240 Байт | ||
|
Номер ответа: 18 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #18 | Добавлено: 19.09.04 23:32 |
|
Можешь STDOUT заменить на MsgBox, но на всякий случай вот:
Function STDOUT (Z As String) As Long ' returns TRUE (non-zero) on success Local hStdOut As Long, nCharsWritten As Long Local w As String hStdOut = GetStdHandle (%STD_OUTPUT_HANDLE) If hSTdOut = -1& Then ' invalid handle value, coded in line to avoid casting differences in Win32API.INC AllocConsole hStdOut = GetStdHandle (%STD_OUTPUT_HANDLE) End If w = Z & $CrLf Function = WriteFile(hStdOut, ByVal StrPtr(W), Len(W), nCharsWritten, ByVal %NULL) End Function |
||