我作了一个.chm的帮助文件，但用下面方法却无法调用？

Question

var
  CurrentDirFile: string;
begin
  CurrentDirFile := ExtractFilePath(ParamStr(0))+'README.CHM';
  ShellExecute(Handle, 'open', Pchar(CurrentDirFile), nil, nil, SW_SHOWMAXIMIZED);
end;

Answer 1

提示：无法识别ShellExecute，这么回事？

Answer 2

用了ShellAPI单元了吗？
uses
    ShellAPI;

Answer 3

一下代码我测试过可用！！filename:='yd.chm';
dirname:=ExtractFilePath(Application.ExeName)+'help\';
ShellExecute(Handle,'open',Pchar(FileName),nil,Pchar(dirname),SW_SHOW);注意！！NULL换成nil, 这里出错！！

Answer 4

记得在uses中加入 ShellApi 引用 ！！

Answer 5

那能问一下：我想程序刚运行时，主窗体最大化显示，可适用于800*600，和1024*768的给如何做呢？窗体上有个image，使它也跟着变。

Answer 6

改 变WINDOWSTATE的属性为SMAXIMIZED

Answer 7

把IMAGE的属性ALIGN改成ALCLIENT就OK 了