Delphiめも

ヘルプファイルを作成する†

Microsoftが提唱した規格でHTML Helpというのがあるそうです
http://www.keiyu.com/

URLやローカルhtmlをIEで開く†

usesにShellAPIを追加

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'OPEN', 'http://yassu.no-ip.com/','', '', SW_SHOWNORMAL);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle,'OPEN',    PChar(ExtractFilePath(Application.ExeName)+'\help\index.html'),    '','',SW_SHOWNORMAL);
end;

Delphi7でQuickReportを使う†

「コンポーネント」→「パッケージのインストール」→「追加」

C:\Program Files\Borland\Delphi7\Bin\dclqrt70.bpl　を選択

アプリケーションの二重起動を防止する†

usesにWindowsを追加

var
  HWND, HAPP: THandle;
begin
  Application.Initialize;
  // メインウインドウを探す
  HWND := FindWindow(nil, 'アプリケーション');
  if (HWND <> 0) then
  begin
    // メインウインドウがある場合、アプリケーションのハンドルを取得
    HAPP := GetWindow(HWND, GW_OWNER);
    if (IsIconic(HAPP)) then
    // アイコン化されていた場合、元のサイズにする
    OpenIcon(HAPP);
    // 前面に移動
    SetForegroundWindow(HAPP);
  end
  else
  begin
    Application.Title := 'アプリケーション';
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
end.

QuickReportで「レポートの保存」「レポート読み込み」ボタンを非表示にする†

C:\Program Files\Borland\Delphi7\Lib\Qrprev.dfm を以下変更する

object SaveReport: TToolButton
  Visible = false
object LoadReport: TToolButton
  Visible = false
object Separator4: TToolButton
  Visible = false

ソースを変更しないで実現するには → http://www.users.gr.jp/ml/archive/delphi/62520.asp

Window95 QuickReportで「Image.Bitmapの読み込みエラー:ストリームからのImageListデータの読み込みに失敗しました」とエラーが出る†

Comctl32.dllのバージョンが古いとダメみたい
具体的には4.70だとダメだった

InternetExplorer5.01ServicePack2以上をインストールすると解決

SQL文の実行†

uses DBTables;
procedure TForm1.Button1Click(Sender: TObject);
begin
  with TQuery.Create(Self) do
   begin
     DatabaseName := dmData.Table1.DatabaseName;
     Close;
     SQL.Clear;
     SQL.Add('SELECT Max(ID) FROM monitor.DB');
     Open;
     Button1.Caption := Fields[0].AsString;
     Free;
   end;
end;

Paradoxの型†

Paradoxを使ったソフトをWindowsXPで実行すると「ネットワークの初期化に失敗しました」とエラーが出る†

権限の問題で起こるのでソフトを使用するユーザーをAdministrator権限で制限ユーザーから標準ユーザーにする