Скачать: CL | DM;

Почему форма закрывается   Найти похожие ветки 

← →
MV-GROB ©   (2002-05-30 12:45) [0]

Почему форма закрывается, а винды выдают синий экран?
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.

---

← →
MV-GROB ©   (2002-05-30 12:48) [1]

Конешно же
Procedure Nastroika;
Begin
Form1:=TForm1.Create(Application);
Form1.Visible:=true;


end;

---

← →
Alx2 ©   (2002-05-30 12:50) [2]

Для начала выдели память под s:pchar

---

← →
andron   (2002-05-30 12:55) [3]

Тут анекдот читал:
-Что изменится в компьютере с приходом Windows2000?
-На клавиатуре появятся левый и правый Reset!

---

← →
MV-GROB ©   (2002-05-30 12:56) [4]

Функция работает нормально Все ОК пока не делаешь
Form1:=TForm1.Create(Application);

---

← →
Alx2 ©   (2002-05-30 13:00) [5]

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

---

← →
MV-GROB ©   (2002-05-30 13:06) [6]

Alx2 Понимаеш я ремарю все кроме настройки и висну
Ошибка в том, что я форму вручную никогда не создавал, и не заю как передать ей управление, и убить когда закончу с ней работать (((

---

← →
Игорь Шевченко ©   (2002-05-30 13:24) [7]

Нет слов
Application.Initialize
и
Application.Run

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c