Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];

Вниз

проблема со стартовыми параметрами   Найти похожие ветки 

← →
petro   (2003-09-25 11:25) [0]

Существует у меня функция, которая проверяет начальные параметры, и
если они есть- выполняет опр. действия. Мне нужно, чтобы прога закрылась сразу
после выполнения этих дейтсвий, но она не закрывается, а просто загружается, как обычно,
а при попытке закрыть, выводит ощибку, типа Access violation at address .... in prog.exe.
Помогите пожалуйста, вот фрагмент кода:

function TForm1.CheckstartParam:boolean;
begin
Result:=false;
if ParamStr(1)="-b" then begin
Button4.Click;
BitBtn1.Click;
Result:=true;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
............................
if CheckstartParam then
Close;
end;


---

← →
ZEE   (2003-09-25 11:31) [1]

попробуй:
if CheckstartParam then Application.Terminate;
или
Halt

---

← →
panov   (2003-09-25 11:32) [2]

program Project2;

uses
Forms,
Unit2 in "Unit2.pas" {Form1};

{$R *.res}
var
pp: Integer;
begin
Application.Initialize;
pp := ParamCount;
if pp>0 then
begin
Application.CreateForm(TForm1, Form1);
Application.Run;
end;
end.

или

procedure TForm1.FormCreate(Sender: TObject);
begin
............................
if CheckstartParam then
Application.Terminate;
end

---

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

Форум: "Основная";
Текущий архив: 2003.10.06;
Скачать: [xml.tar.bz2];

Наверх

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