まるむしアンテナ

自作に改造、修理、メンテナンス...とりあえずなんでも自分でやってみよう!

By

Delphi6でHTMLヘルプファイル(chmファイル)を開くには

chmファイルは、Delphi6のプロジェクトからヘルプファイルに割り当てることができない。
ではHTMLヘルプファイルは使用できないのかというと不可能ではない。
しかし非常に面倒だ。
簡単にする方法は無いのか?
というと開くだけなら簡単にできる。その方法は….
HTMLヘルプファイルは、HTML Help Control(hh.exe)によって表示されているので、
hh ヘルプファイル.chm

というように通常のアプリを引数付きで起動するのと同じ要領で起動すれば表示できるのだ。
var
SI :TStartupinfo;
PI :TProcessinformation;
code
CreateProcess(nil,Pchar(‘hh.exe ヘルプファイル名’),nil,nil,false,0,nil,nil,SI,PI);

By

起動時のパラメータを処理するには

exe起動時の引数を処理するには、
ParamCount:ParamCount 関数は,コマンドラインに渡されたパラメータの数を返します。
ParamStr :ParamStr 関数は,コマンドラインに指定されたパラメータを返します。
function ParamStr(Index: Integer): string;
ParamStr(0) は実行プログラムのパスとファイル名(C:\TEST\MYPROG.EXE など)を返します。

By

Delphi ファイルのコピー

Delphiの関数には無いのでWin32APIを使う
uses に WINDOWS を追加
//=============================================================================
// FC_SearchFile:指定されたファイルをコピーする
//…………………………………………………………………..
// FielFrom :コピー元ファイル
// FielTo :コピー先ファイル
// Mode :上書き禁止モード(True:上書き禁止、False:上書き)
// :
// result :True:成功、False:失敗
//…………………………………………………………………..
// 注記 :
// :
//=============================================================================
function FC_FileCopy(FileFrom:string;FileTo:string;Mode:boolean):boolean;
begin
Result:=CopyFile(PChar(FileFrom),PChar(FileTo),Mode);
end;

By

delphi ショートカット インデント

〔Ctrl〕+〔Shift〕+〔I〕 ブロックをインデントする
〔Ctrl〕+〔Shift〕+〔U〕 ブロックをアウトデントする

インデントするとき、ついつい癖で行をドラッグしてTABを押してしまうが、これをやるとまとめて消去されてビックとしてしまう。
Delphiのエディタでは、キーを3つも押さないと複数行インデントはできない。
1行ならTABでできるんだから、複数行でもできればいいのにね。

By

ShDocVw_TLB.dcu が見つかりません

[致命的エラー] Unit1.pas(7): ファイル ‘ShDocVw_TLB.dcu’ が見つかりません
と表示される。
ブラウザ(TWebBrowser)の取り込み
[コンポーネント]-[ActiveXの取り込み]で一覧の中からMicrosoft Internet Controls (Version xx)
を選んでInstallする。

By

キーボードやマウスの押されたキーを判定する

OnKeyDownイベントでKey:word を仮想キーコードで比較する。
仮想キーコードは、

Read More

By

文字列を小文字に変換(大文字に変換)

komoji:=AnsiLowerCase(‘OOMOJI’);
oomoji:=AnsiUpperCase(‘komoji’);