Форум: "Основная";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
ВнизПомогите с консольным приложением!!! ПЛЗ! Найти похожие ветки
← →
[BAD]Angel (2003-03-05 20:44) [0]Уважаемые мастера!
У меня такое дело: есть консольное приложение, которое выполняет некоторые функции... При ее запуске, естественнно, выскакивает черное окно. Как сделать так, чтобы этого небыло?
Очень нужно.
Заранее спасибо!
← →
Романов Р.В. (2003-03-05 20:50) [1]Сделай не консольное приложение.
← →
[BAD]Angel (2003-03-05 20:53) [2]Дело в том, что если делать не консольное приложение, то оно будет иметь большой размер, а так я выигрываю около 250Кб в размере.
← →
Романов Р.В. (2003-03-05 20:55) [3]Убери из своего проекта строку {$APPTYPE CONSOLE}
← →
[BAD]Angel (2003-03-05 21:00) [4]Сейчас попробую! Что-то уж очень легко кажется :) Я весь YANDEX(tm) перепахал, но ничего не нашел :(
← →
[BAD]Angel (2003-03-05 21:02) [5]Ух ты :) фантастика... СПАСИБО ОГРОМНОЕ!!!
А может быть ты знаешь, как определить побыстрее да попроще, каккая стоит операционка? буду приОчень благодарен!!!
← →
Романов Р.В. (2003-03-05 21:50) [6]F1 - Win32Platform variable
← →
[BAD]Angel (2003-03-05 21:58) [7]нашел! а можно примерчиком? :)
← →
Романов Р.В. (2003-03-05 22:05) [8]неа я седня жадный
← →
[BAD]Angel (2003-03-05 22:11) [9]:) жадина!
Хорошо, тогда объясни след. код: (только он почему-то не определяет Win95)
function GettingWinVer: string;
var
temp1, temp2, temp3: integer;
osvi: OSVERSIONINFO;
begin
osvi.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
GetVersionEx(osvi);
temp1:=osvi.dwMajorVersion;
temp2:=osvi.dwMinorVersion;
temp3:=osvi.dwPlatformId;
if temp1=4 then begin
if temp2=0 then begin
if temp3=VER_PLATFORM_WIN32_WINDOWS then
Result:="Windows 95";
end;
end;
...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.17;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.009 c