Параметры окна

[misher]

Код:

var
WhEvent:THandle;
begin
  Application.Initialize;
  ShowWindow(Application.Handle, SW_HIDE);// что с этой строкой?
  Forml:=TForm1.Create(nil);
  Application.Run;
  WhEvent:=CreateEvent(nil, true, false, 'et');
while (true) do
begin
WaitForSingleObject(WhEvent, 1000);
Application.ProcessMessages;
end;
end.

Вроде все правильно, но курсор между ShowWindow и (Application....);

[MaxNik2009]

ShowWindow(Application.Handle, SW_HIDE);// что с этой строкой?

Ты пытаешься спрятать форму которую еще не создал!!! попробуй так:

var
WhEvent:THandle;
begin
Application.Initialize;
Forml:=TForm1.Create(nil);
Application.Run;
ShowWindow(Application.Handle, SW_HIDE);// сюда ее помести
WhEvent:=CreateEvent(nil, true, false, 'et');
while (true) do
begin
WaitForSingleObject(WhEvent, 1000);
Application.ProcessMessages;
end;
end.

[misher]

program Internat32;
uses
Forms,
Windows.
Unitl in 'Unitl.pas' {Forml);
(?R *.RES}
var
WhEvent:THandle;
begin
Application.Initialize,•
ShowWindowfApplication.Handle,SW_HI DE);
Forml:=TForml.Create{nil);
Application.Run;
WhEvent:=CreateEvent{nil, true, false, 'et');
while (true) do
begin
WaitForSingleObject(WhEvent, 1000);
Application.ProcessMessages;
end;
end.

Вот я просто в uses не в нес... теперь когда все вроде сделал правильно на var e ошибка! Что может быть?

[MaxNik2009]

А ежели так:

var
WhEvent:THandle;
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
ShowWindow(Application.Handle, SW_HIDE);// сюда ее помести
WhEvent:=CreateEvent(nil, true, false, 'et');
while (true) do
begin
WaitForSingleObject(WhEvent, 1000);
Application.ProcessMessages;
end;
end.

[misher]

var

что с ним?

[MaxNik2009]

Сообщение от NarkoIII@

что с ним?

Не понял вопроса... Уточни.

[misher]

Код:

program Internat32;
uses
Forms,
Windows.
Unit1 in 'Unitl.pas' {Form1);
($R *.RES}
var // почему-то на нем ошибка...
WhEvent:THandle;
begin
Application.Initialize;
ShowWindowfApplication.Handle,SW_HI DE);
Form1:=TForm1.Create{nil);
Application.Run;
WhEvent:=CreateEvent(nil, true, false, 'et');
while (true) do
begin
WaitForSingleObject(WhEvent, 1000);
Application.ProcessMessages;
end;
end.

Вот... как-то так.
В самом начале темы я не дописал в uses
Windows.
Unitl in 'Unitl.pas' {Forml);
В чем тут ошибка почему не работает?

[MaxNik2009]

program Internat32;
uses
Forms,
Windows. //вот тут вместо точки поставь ;
Unit1 in 'Unitl.pas' {Form1);

[misher]

Unit1 in 'Unitl.pas' {Form1);

теперь на этой строке...(((

[MaxNik2009]

Unit1 in 'Unitl.pas' {Form1); //замени на }