Читать «Виртуальная библиотека Delphi» онлайн - страница 166

Пример:

uses Printers;

procedure TForm1.Button1Click(Sender: TObject);

var

 tm : TTextMetric;

 i : integer;

begin

 if PrintDialog1.Execute then begin

  Printer.BeginDoc;

  Printer.Canvas.Font.Handle := GetStockObject(DEVICE_DEFAULT_FONT);

  GetTextMetrics(Printer.Canvas.Handle, tm);

  for i := 1 to 10 do begin

   Printer.Canvas.TextOut(100,i * tm.tmHeight + tm.tmExternalLeading,'Test');

  end;

  Printer.EndDoc;

 end;

end;

Вопрос:

Мне нужно программно установить некоторые файлы с установочного диска Windows. На многих компьютерах CAB-файлы установки Windows находятся в каком-то каталоге на жестком диске, на других — Windows был установлен с CD. Как узнать откуда была установленна Windows?

Ответ:

Эту информацию можно получить из реестра.

Пример:

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);

var reg: TRegistry;

begin

 reg := TRegistry.Create;

 reg.RootKey := HKEY_LOCAL_MACHINE;

 reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\SETUP',false);

 ShowMessage(reg.ReadString('SourcePath'));

 reg.CloseKey;

 reg.free;

end;

Вопрос:

Как получить строку сообщения об ошибке Windows код которой получен функцией GetLastError?

Ответ:

Функция RTL SysErrorMessage(GetLastError).

Пример:

procedure TForm1.Button1Click(Sender: TObject);

begin

 {Cause a Windows system error message to be logged}

 ShowMessage(IntToStr(lStrLen(nil)));

 ShowMessage(SysErrorMessage(GetLastError));

end;

Вопрос:

Как заставить Delphi выполнять еще более строгую проверка типов? Например — я создаю пользовательский тип, унаследованный от double и могу передавать его любым функциям, принимающим параметр типа double. Как заставить компилятор проводить более строгую проверку типов и выдавать предупреждение в таких случаях?

Ответ:

См. ответ.

Пример:

type TStrongType = type Double;

type TWeakType = Double;

procedure AddWeakType(var d : TWeakType);

begin

 d := d + 1;

end;

procedure AddStrongType(var d : TStrongType);

begin

 d := d + 1;

end;

procedure AddDoubleType(var d : Double);

begin

 d := d + 1;

end;

procedure TForm1.Button1Click(Sender: TObject);

var

 d : Double;

 s : TStrongType;

 w : TWeakType;

begin

 AddDoubleType(d); {compiles fine}

 AddDoubleType(w); {compiles fine}

 AddDoubleType(s); {<- compile error}

 AddDoubleType(double(s)); {compiles fine}

 AddWeakType(d); {compiles fine}

 AddWeakType(w); {compiles fine}

 AddWeakType(s); {<- compile error}

 AddWeakType(TWeakType(s)); {compiles fine}

 AddStrongType(d); {<- compile error}

 AddStrongType(TStrongType(d)); {compiles fine}