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

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

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

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

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

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

QUOTE

Для консольных, стандартными ничего в голову не приходит, а не стандартными, например так: Код  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);

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

Только можно обойтись всего 3-мя строчками:

QUOTE

program Project1; {$APPTYPE CONSOLE} uses   SysUtils, Windows; var   h: HWND; begin   h := GetForegroundWindow;   ShowWindow(h, SW_HIDE);   readln; end.

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

QUOTE

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.

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

QUOTE

я не прошу мне прогут написать,а просто объясните как подключить эту библиотеку

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

QUOTE

uses    <...>, OpenGL, <...>;

ЗЫ: Если возникнут проблемы с отрисовкой тени - пиши, постараюсь помочь.

Народ нужна помощь,модеров прошу не затирать сообщение.
Нуна сделать програму которая бы считала линейную функцию ( Y=Kx+B )
И решение выдавала в виде графика!
Нуна сделать кнопку старт!
K и B Енто вроде ячеек в которых задаешь параметры ( K и B )
Вот в пинципе и вся задачка! Заранее спасибо!

QUOTE

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

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

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

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

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

Скинь почту в приват, до вечера отошлю.

кто-нибудь делал замену HyperTerminal'а? А то вот в бошку взбрело, теперь мучаюсь. помогите, если можете.

QUOTE

кто-нибудь делал замену HyperTerminal'а? А то вот в бошку взбрело, теперь мучаюсь. помогите, если можете.

Пытаюсь, но кое с чем не совсем могу разобраться.

k2kator

QUOTE

Пытаюсь, но кое с чем не совсем могу разобраться.

С чем а то может чем я помогу?

QUOTE

С чем а то может чем я помогу?

Я вот тут подумал(только подумал).Сразу возникла проблема.Как данные с одного компа на другой перекидывать,сам принцип.

QUOTE

Как данные с одного компа на другой перекидывать,сам принцип.

У меня друг книгу в электронном виде выложил "Протоколы TCP/IP" [Для просмотра ссылки зарегистрируйтесь] если хочешь посмотри. А подключение сокетов и работа с ними не мало выложенно на Realcoding.net (по крайней мере все статьи для себя я с него качал)

У меня такая проблема хочу ,чтобы при открытиииз одной формы другую форму в модальном режиме (showmodal),та,из которой открывали могла бы работать(т.е. на фторой форме сделать кнопку отмена и при ее нажатии вторая убиралась,а первая работала )

Люди, помогите!!! Диплом скоро, программа почти готова, остался сущий пустяк: Данные оформляются в Excel, все идет нормально и без глюков, но надо все это оформить рамкой, а как не знаю. Подскажите, как это сделать. Если будете писать текст проги, то пожалуйста перечислите модули необходимые для работы.

Заранее всем благодарен. Если кому надо исходник проги могу скинуть на E-mail.

QUOTE

У меня такая проблема хочу, чтобы при открытии из одной формы другую форму в модальном режиме (showmodal),та, из которой открывали, могла бы работать(т.е. на фторой форме сделать кнопку отмена и при ее нажатии вторая убиралась, а первая работала )

В событии, по нажатию кнопки отмена, напиши "Close;". Если первая форма заведомо находится на уровень выше, то все будет работать отлично.

fat_sorcerer
Я делал. Но тока файлы хреново отсылалися. Есть способ такой: Типа файлы слать с помощю сокетов.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ScktComp, StdCtrls;

type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
ServerSocket1: TServerSocket;
btnTestSockets: TButton;
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
procedure ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
procedure btnTestSocketsClick(Sender: TObject);
private
FStream: TFileStream;
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
iLen: Integer;
Bfr: Pointer;
begin
iLen := Socket.ReceiveLength;
GetMem(Bfr, iLen);
try
Socket.ReceiveBuf(Bfr^, iLen);
FStream.Write(Bfr^, iLen);
finally
FreeMem(Bfr);
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
FStream := nil;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
if Assigned(FStream) then
begin
FStream.Free;
FStream := nil;
end;
end;

procedure TForm1.ClientSocket1Disconnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
if Assigned(FStream) then
begin
FStream.Free;
FStream := nil;
end;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
FStream := TFileStream.Create('c:\temp\test.stream.html', fmCreate or fmShareDenyWrite);
end;

procedure TForm1.ServerSocket1ClientConnect(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.SendStream(TFileStream.Create('c:\temp\test.html', fmOpenRead or fmShareDenyWrite));
end;

procedure TForm1.btnTestSocketsClick(Sender: TObject);
begin
ServerSocket1.Active := True;
ClientSocket1.Active := True;
end;

end.

[FONT=Arial][SIZE=1][COLOR=blue]Огромнейшая просьба всем, кто сможет сделать такую фишку:
Создать форму "Составные персонального компьютера", имеющиеся составные выводить в StringGrid1 (№-Поставщик-Составная-Количество-Стоимость), предварительно разрешив редактирование Такой таблицы (в смысле StringGrid1 ). Во время работы пользователь может добавлять или стирать записи используя раздел Добавить/Стереть (GroupBox), в котором есть ComboBox1 (Поставщик), ComboBox2 (Составная), Edit1 (Количество) i Edit2(Стоимость) и 2 кнопочки Добавить и Стереть , а также ( что для меня оказалось трудновато) один SpinEdit. И при закрытии программы сохранять таблицу в файл *.dat
Добавлено:
Sorry// Я ещё забыл, создать табличку (stringGrid) для поиска.
Добавлено:
Помогите, пожалуйста, а то мне гаплык.... Нужно сдать контрольную. В долгу не останусь.

Ребяты, тут кто-то с Инди-копонентами седьмых делфей работал? Конкретно ТСРКлиент и ТСРСервер, а? Я вот тут начал смотреть, пока вроде ничего сложного, но говорят там какие-то хз какие ньюансы... есть ли какие доки по тим компонетам у кого?

Прошу помощи по поводу программирования в Delphi. Мне нужна информация, любая информация связанная с OpenGL. У кого есть поделитесь.