ALPeresvet
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата: Определи папку, в которой лежит библиотека и сформируй путь к хелпу:
var
buf: array [0..1024] of Char;
begin
GetModuleFileName(HInstance, @buf, SizeOf(buf));
hlppath := ExtractFilePath(PChar(@buf)) + '\myhelp.hlp';
|
Так и сделал, но если вписывать это в ShellExecute, то компиллятор пишет несовместимость типов данных:
procedure TFLibVizual.SpeedButton3Click(Sender: TObject);
var
buf: array [0..1024] of Char;
begin
GetModuleFileName(HInstance, @buf, SizeOf(buf));
ShellExecute (Handle, 'open', ExtractFilePath(PChar(@buf)) + '\ROOT.HLP', nil, nil, SW_RESTORE);
end;
[Pascal Error] LibVizual.pas(222): E2010 Incompatible types: 'string' and 'PAnsiChar' |
