FreePascal.ru

Тем не менее,на Codegear Delphi 2007 этот код отлично работает.
Мне вообще надо откомпилировать вот этот модуль для работы с файлами:
m
Там соответственно Лазарус ругается на строчку:
result := shellapi.ShellExecute( Application.Handle, 'open',
pChar( fFileName ), '', pChar(Path), SW ...

Не компилируется код:
MessageDlg('Уже поздно. Будь послушным мальчиком. '+
'Туши свет и вали спать!', mtInformatoion, [mbOk], 0);
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);

В Гугле ничего не нашлось,любой код содержащий Application.Handle выдает ...

IconIndex возвращает номер значка в файле,разве число 0 может быть указателем?

Такой код выдает ошибку:
uses ShellApi;

procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex: word;
h: hIcon;
begin
IconIndex := 0;
h := ExtractAssociatedIcon(hInstance,
'C:WINDOWSNOTEPAD.EXE', IconIndex);

DrawIcon(Form1.Canvas.Handle, 10, 10 ...