Delphiめも のバックアップ(No.1)

• バックアップ一覧
• 差分 を表示
• 現在との差分 を表示
• ソース を表示
• Delphiめも へ行く。
  • 1 (2005-11-21 (月) 07:50:22)

---

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

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の型 記号 項目 項目幅 A 文字型 1-255 N 実数型 10-308 - 10308 $ 金額型 小数点以下6桁まで S 整数型 -32767 - 32767 I 倍長整数型 -2147483647 - 2147483647

# BCD型 0-32 D 日付型 紀元前9999年１月１日 - 西暦9999年12月31日 T 時間型 午前０時からのミリ秒単位の時間 @ 日付時間型 M メモ型 1-240 F 書式付きメモ型 0-240 G グラフィック型 0-240 O OLE型 0-240 L 論理型

1. カウンタ型 B バイナリ型 0-240 Y バイト型 1-255

↑ Paradoxを使ったソフトをWindowsXPで実行すると「ネットワークの初期化に失敗しました」とエラーが出る 権限の問題で起こるのでソフトを使用するユーザーをAdministrator権限で制限ユーザーから標準ユーザーにする