Código
procedure TForm1.SearchHelp;
var
P: PChar;
begin
Application.HelpFile := 'c:delphibindelphi.hlp';
P := StrNew('');
Application.HelpCommand(Help_PartialKey, longint(P));
StrDispose(P);
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009