Текущий архив: 2003.03.17;
Скачать: CL | DM;

Вниз

Помогите с консольным приложением!!! ПЛЗ!   Найти похожие ветки 

← →
[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;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.021 c