Exceptions anstatt ShowMessage + Exit wäre besser.
Also z.B. so:
Delphi-Quellcode:
function GetLcdDevice(): HFILE;
begin
Result := CreateFile(LCDDeviceFile, FILE_ANY_ACCESS, 0,
nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
//check handle:
if Result = INVALID_HANDLE_VALUE
then
raise EFileError.Create('
An error occurred opening the LCD device');
end;
Das gilt natürlich auch für alle anderen ShowMessage aufrufe.