var
SaveCursor: TCursor;
begin
SaveCursor := Screen.Cursor; //現マウスポインタを退避
Screen.Cursor := crHourGlass; //砂時計に
try
…
finally
Screen.Cursor := SaveCursor; //元に戻す
end;
end;
◆アイコンを変更すると、実行ファイルのアイコンが変更されるのだ。
var
FChecked: array of BOOL;
…
SetLength(FChecked, 10); //10個の配列になる(FChecked[0] から FChecked[9] まで)
var
FiniFile: TIniFile;
IniPath: String;
IniPath := ChangeFileExt(ParamStr(0), '.ini'); //実行ファイルパスの拡張子をiniに変更
FiniFile := TIniFile.Create(IniPath);
FiniFile.WriteString('セクション名', 'キー名', '値'); //書き出し
var
WStr: String;
WStr := FiniFile.ReadString('セクション名', 'キー名', 'デフォルト値'); //読み込み
◆WindowsXPにOfficeXP(に附属しているIMEJP8.0)がインストールされている環境に、Delphi7のInstallShieldをインストールすると起こるらしいな。IMEJP8.0をアンインストールすればよいみたいだ。