| 4,7 → 4,7 |
|---|
| |
| uses |
| Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| StdCtrls, ShellAPI{$IF CompilerVersion >= 23.0}, System.UITypes{$IFEND}; |
| StdCtrls, ShellAPI; |
| |
| type |
| TSourceForm = class(TForm) |
| 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. |