17 июня 2025, 18:05:17

Новости:

Чтобы загрузить изображение нужно нажать кнопку "ПРЕДВАРИТЕЛЬНЫЙ ПРОСМОТР".


D

Програмирование в Delphi

Автор D_Artem, 03 июня 2004, 17:51:54

0 Пользователей и 2 гостей просматривают эту тему.

D_Artem

Предлагаю оставлять здесь всё что можно онтести к программированию на делфи.

Я сам покачто начинающий в этом деле, поэтому возникает масса вопросов, и если кто-нибудь сможет мне помочь я буду оччень рад. В принципе если у кого какие траблы мож и я чем помогу...:)

И собсна сабж: кто знает как сделать так, чтоб при запуске консольного приложения ничего не отображалось на экране. Чтоб процесс щел, а окошки в трее и таск баре не появлялись?

Stalker114

Я кстати тоже хотел бы получить ответ на этот вопрос.  

D_Artem

Ну неужели нет таких кто ответить смог-бы???

D_Artem

Да...сам вопрос задал сам-же и отвечаю:

ЦитироватьДля консольных, стандартными ничего в голову не приходит, а не стандартными, например так:


Код 

uses
SysUtils, Windows;




Код 

var
HandleWindow: THandle;
WindowName: array[0..MAX_PATH] of Char;




Код 

begin
FillChar(WindowName, SizeOf(WindowName), #0);
GetConsoleTitle(WindowName, SizeOf(WindowName));
HandleWindow := FindWindow(nil, WindowName);
ShowWindow(HandleWindow, SW_HIDE);




Спасибо форуму Игромании

NightBlaze

04 декабря 2004, 14:16:22 #4 Последнее редактирование: 04 декабря 2004, 14:19:16 от NightBlaze
Только можно обойтись всего 3-мя строчками:

Цитировать
program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var
  h: HWND;

begin
  h := GetForegroundWindow;
  ShowWindow(h, SW_HIDE);

  readln;
end.

Добавлено:
На этом же принципе можно написать небольшую прожку-прикол по исчезновению других окон.

Цитироватьprogram Fun;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var
  h: HWND;

begin
  while true do  //открываем бесконечный цикл
    begin
      h := GetForegroundWindow;  //находим чужое окно
      ShowWindow(h, SW_HIDE);  //прячем найденное окно
      sleep(3000);  //делаем задержку в 3 сек.
    end;
end.

"Язык - это общество, а не личность." С. Лукьяненко "Звездная тень"
"Ты же знаешь - история говорит лишь о рассказчике." С. Лукьяненко "Спектр"
Не стыдно не знать. Стыдно не стремиться к знаниям.

Taurus

Люди,подскажие как в дэлфе с opengl работать.Надо сделать 3d объект,на него падает свет,и меняется тень при его вращении.я не прошу мне прогут написать,а просто объясните как подключить эту библиотеку

NightBlaze

05 декабря 2004, 11:53:11 #6 Последнее редактирование: 05 декабря 2004, 11:59:28 от NightBlaze
Цитироватья не прошу мне прогут написать,а просто объясните как подключить эту библиотеку


Для этого в раздел uses достаточно добавить модуль OpenGL. Т.е. этот раздел теперь будет выглядеть так:
Цитировать
uses
   <...>, OpenGL, <...>;


ЗЫ: Если возникнут проблемы с отрисовкой тени - пиши, постараюсь помочь.
"Язык - это общество, а не личность." С. Лукьяненко "Звездная тень"
"Ты же знаешь - история говорит лишь о рассказчике." С. Лукьяненко "Спектр"
Не стыдно не знать. Стыдно не стремиться к знаниям.

ХУЛИГАН

08 января 2005, 16:08:54 #7 Последнее редактирование: 08 января 2005, 16:10:29 от ХУЛИГАН
Народ нужна помощь,модеров прошу не затирать сообщение.
Нуна сделать програму которая бы считала линейную функцию ( Y=Kx+B )
И решение выдавала в виде графика!
Нуна сделать кнопку старт!
K и B Енто вроде ячеек в которых задаешь параметры ( K и B )
Вот в пинципе и вся задачка! Заранее спасибо!

AsIs

ЦитироватьНуна сделать програму которая бы считала линейную функцию ( Y=Kx+B )

Задача тривиальная, пишется 15 минут (со всеми украшениями).

Попроси ближайшего компьютерщика, за банку пива напишет
(здесь, пиво - компенсация за моральный вред, причинённый оскорблением ничтожностью поставленной задачи)

PS: Сам бы написал, но это непедагогично. Впрочем, если это вопрос жизни и смерти - могу. Иногда я добрый.
aya sata hara kaai

ХУЛИГАН

AsIs,да вопрос жизни и смерти.Я знаю что прога лёгкая,ну я ещё Делфи не фига не знаю,так что не могу её сделать.Тем более время поджимает,буду рад если поможешь!!! :)  



По всем вопросам пишите по адресу gratispp@mail.ru