Révision 13 UnitMain.pas
| UnitMain.pas | ||
|---|---|---|
| 176 | 176 |
var |
| 177 | 177 |
TutoFile: string; |
| 178 | 178 |
begin |
| 179 |
TutoFile := ExtractFilePath(Application.ExeName) + 'Tutorial.pps';
|
|
| 179 |
TutoFile := ExtractFilePath(Application.ExeName) + 'EvaPigTutorial_2020.ppsx';
|
|
| 180 | 180 |
if not FileExists(TutoFile) |
| 181 | 181 |
then |
| 182 | 182 |
MessageDlg(Format(_('%s: file not found') + sLineBreak
|
Formats disponibles : Unified diff