| 26,10 → 26,13 |
|---|
| var |
| SourceForm: TSourceForm; |
| |
| const |
| FCompVersion = '1.0'; |
| |
| implementation |
| |
| uses |
| Global, LevMain, LevSpeicherung; |
| LevMain, LevSpeicherung; |
| |
| {$R *.DFM} |
| |
| 81,13 → 84,13 |
|---|
| |
| procedure TSourceForm.Label1Click(Sender: TObject); |
| begin |
| if not fileexists(Fdirectory+'Dokumentation.pdf') then |
| if not fileexists(mainform.fdirectory+'Dokumentation.pdf') then |
| begin |
| MessageDLG('Die Datei "Dokumentation.pdf" ist nicht mehr vorhanden. Die Aktion wird abgebrochen!', |
| mtWarning, [mbOK], 0); |
| end |
| else |
| shellexecute(handle, 'open', pchar(fdirectory+'Dokumentation.pdf'), '', '', 1); |
| shellexecute(handle, 'open', pchar(mainform.fdirectory+'Dokumentation.pdf'), '', '', 1); |
| end; |
| |
| end. |