Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/GikoDataModule.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 4569 |
var |
var |
| 4570 |
form : TUpdateCheckForm; |
form : TUpdateCheckForm; |
| 4571 |
Msg: string; |
Msg: string; |
| 4572 |
|
shutdown: boolean; |
| 4573 |
begin |
begin |
| 4574 |
if (EditorFormExists) then begin |
if (EditorFormExists) then begin |
| 4575 |
Msg := 'レスエディタを全て閉じてください'; |
Msg := 'レスエディタを全て閉じてください'; |
| 4576 |
MsgBox(GikoForm.Handle, Msg, MSG_ERROR, MB_OK or MB_ICONSTOP); |
MsgBox(GikoForm.Handle, Msg, MSG_ERROR, MB_OK or MB_ICONSTOP); |
| 4577 |
Exit; |
Exit; |
| 4578 |
end; |
end; |
| 4579 |
|
GikoForm.UpdateExePath := ''; |
| 4580 |
|
GikoForm.UpdateExeArgs := ''; |
| 4581 |
form := TUpdateCheckForm.Create(Self); |
form := TUpdateCheckForm.Create(Self); |
| 4582 |
try |
try |
| 4583 |
form.ShowModal; |
form.ShowModal; |
| 4584 |
|
shutdown := form.Allowshutdown; |
| 4585 |
|
GikoForm.UpdateExePath := form.ExecPath; |
| 4586 |
|
GikoForm.UpdateExeArgs := form.ExecArgs; |
| 4587 |
finally |
finally |
| 4588 |
form.Release; |
form.Release; |
| 4589 |
end; |
end; |
| 4590 |
|
if shutdown then begin |
| 4591 |
|
// ギコナビ終了 |
| 4592 |
|
GikoForm.Close; |
| 4593 |
|
end; |
| 4594 |
|
|
| 4595 |
end; |
end; |
| 4596 |
|
|
| 4597 |
end. |
end. |
|
|
Legend:
| Removed from v.1.70 |
|
| changed lines |
| |
Added in v.1.71 |
|
|
|