Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Почему форма закрывается [D6]

MV-GROB © (2002-05-30 12:45:00)
Почему форма закрывается, а винды выдают синий экран?
program Clos1c;

uses
SysUtils,
Windows,
Dialogs,
Forms,
Messages,
Clos in "Clos.pas" {Form1};

Var
Startinfo:TStartupinfo;
Procinfo:Tprocessinformation;
Function Test:Boolean;
var
s:Pchar;
Fl:boolean;
//F:TextFile;
Begin
fl:=true;
if GetWindowsDirectory(s,30)>0 Then
s:=Pchar(s+"\Clos1c.ini")
Else
Begin
ShowMessage("Не найдена папка Windows");
fl:=False
End;
if FileExists(string(s))=False then
Begin
ShowMessage("Не найден файл настройки.");
fl:=False;
End;
If fl=true then
Result:=true
else
Result:=false

end;
Procedure Nastroika;
Begin

end;
begin
If Test=true then
Begin
CreateProcessA(nil,"C:\Program Files\1Cv75\BIN\1cv7.exe enterprise",nil,nil,false,NORMAL_PRIORITY_CLASS,nil,"c:\",Startinfo,Procinfo);
While FileExists("c:\Tests\1.txt")<>True do
begin
Application.ProcessMessages;
sleep(100);
end;
TerminateProcess(Procinfo.hProcess,Procinfo.dwProcessId);
ShowMessage("Тест завершен.")
End
else
Begin
ShowMessage("Тест незавершен.");
Nastroika;
end;

end.
unit Clos;

interface

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

type
TForm1 = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

end.

Игорь Шевченко (2002-05-30 13:24:00) [1]
Нет слов
Application.Initialize
и
Application.Run

Гарантирована ошибка

MV-GROB (2002-05-30 13:06:00) [2]
Alx2 Понимаеш я ремарю все кроме настройки и висну
Ошибка в том, что я форму вручную никогда не создавал, и не заю как передать ей управление, и убить когда закончу с ней работать (((

Alx2 (2002-05-30 13:00:00) [3]
>MV-GROB © (30.05.02 12:56)
Мое сообщение остается в силе (Alx2 © (30.05.02 12:50)).
Упрашивать не буду :)

MV-GROB (2002-05-30 12:56:00) [4]
Функция работает нормально Все ОК пока не делаешь
Form1:=TForm1.Create(Application);

andron (2002-05-30 12:55:00) [5]
Тут анекдот читал:
-Что изменится в компьютере с приходом Windows2000?
-На клавиатуре появятся левый и правый Reset!

Alx2 (2002-05-30 12:50:00) [6]
Для начала выдели память под s:pchar

MV-GROB (2002-05-30 12:48:00) [7]
Конешно же
Procedure Nastroika;
Begin
Form1:=TForm1.Create(Application);
Form1.Visible:=true;

end;

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »