新しい Windows プログラミング言語として、Delphi は
多くの優れた機能が 1 つに統合されているため、プログラマーやプログラマーの間でますます人気が高まっています。
オーディオファンに愛用されています。以下の 10 のテクニックは、幅広い分野をカバーできると思います。
Delphi 愛好家にとっては十分に有益です。
1． vb に似ています。 doevents は機能します。
Delphi には vb に相当するものが存在しないことに気づくかもしれません。でる
ents が機能するため、Windows をあまり応答させられない場合があります。
同時開催のイベント。実際には、Delphi アプリケーション オブジェクト内で
同様のメソッド PROcessMessage が含まれており、呼び出すことができます。
アプリケーションを使用します。 vb のように完了する ProcessMessage。潜る
同じ機能です。
2． Delphi で NetscapeNavigator を呼び出します。
インターネットの普及に伴い、Delphi プログラムでインターネットを使用することを考えたことはありますか?
で Netscape ブラウザを起動し、指定した WWW アドレスのホームページを表示します。
。次のプログラムはこの機能を実現できます。
プログラムネットスケープ;
DDEMan を使用します。
プロシージャGo??toURL(sURL: string);
変数
dde:TDDEClientConv;
始める
dde: ΚTDDEClientConv.作成(nil);
撤退しました
始める
//ネットスケープの場所を指定します。 EXE
サービスアプリケーション: Κ'c: ns32ιプログラム
tscape． EXE';
//Netscape Navigator をアクティブにする
SetLink('Netscape', 'WWW-Activate');
RequestData('0xFFFFFFFF');
//指定されたURLに移動します
SetLink('Netscape', 'WWW-OpenURL');
RequestData(sURL+',,0xFFFFFFFF,0x3,,,
');
リンクを閉じる;
終わり;
で。無料;
終わり;
始める
GotoURL('http://www.yahoo.com/');
終わり。
3.フォーマットされた整数出力。
Delphi では、大きな数値を出力すると読みにくくなります。
次のように、番号をセクション記号付きで表示するのは非常に簡単です: xx
xxx．キャプション: ΚFormatFloat('#', 524667500)。
4.コンパイル時にヒントを取得します。
Delphi2.0 では、コンパイル時にコンパイラに指示を求めることができます。
宣言されているが使用されていない変数などのヒント。私たちは知っています
はい、メニューのオプションを使用して、Delphi にこれを実行させるかどうかを制御できます。
ただし、特別なニーズがある場合は、指定されたコード セグメント内でのみ必要になります。
lphi のようなプロンプトが表示された場合はどうすればよいですか?以下の手順をご参照ください。
{$ヒントン}
手続きフォーム1． Button1Click(送信者: TObject
);
変数
X: 整数。
始める
終わり;
{$ヒント}
5. Windows95の壁紙を変更します。
Delphiでは壁紙を簡単に変更できます。以下を参照してください。
プログラム。
プロシージャ変更してください。
変数
登録:TregIniファイル;
始める
Reg：ΚTRegIniFile． Create('コントロールパネル')
;
登録WriteString('デスクトップ', '壁紙',
''c: ιpwin95ιfor??est． bmp');
登録WriteString('デスクトップ', 'タイル壁紙
','1');
登録無料;
SystemParametersInfo(SPI-SETDESKWALLPAPER, 0
、nil、SPIF-SENDWININICHANGE);
終わり;
6．ファイルが最後に使用された日付を取得します。
Win95 にはファイルへのアクセスを取得する新しい機能があります。
最後の日付。有名な CleanSweapforWin95 ソフトウェアはこれに依存しています。
この機能は、ファイルへのアクセスが頻繁に行われるかどうかを判断する基準の 1 つとして使用されます。
Delphi では、次のプログラムを通じてこの機能を実現できます。
functionGetFileLastaccessTime(sFileName:stri
ng):TDate??Time;
変数
ffd:TWin32FindData;
dft:DWord;
lft:TFileTime;
h: Tハンドル;
始める
//ファイル情報を取得する
h：ΚWindows。 FindFirstFile(PChar(sファイル名
)、ffd);
if（無効―ハンドル―値ΙΛh）then
始める
//私たちはたった 1 つのファイルを探しています、socloSEOur''f
インド」
ウィンドウズ。 FindClose(h);
//FILETIME をローカル FILETIME に変換します
FileTimeToLocalFileTime(ffd.ftLastAccessTime
,lft);
//FILETIME を DOS 時間に変換します
FileTimeToDosDateTime(lft,LongRec(dft).Hi
、LongRec(dft)。ロ）;
//最後に、使用するために DOS 時間を TDateTime に変換します
Delphi のネイティブの日付/時刻関数
結果: ΚFileDateToDateTime(dft);
終わり;
終わり;
GetFileLastAccessTime() は Delphi の TdateTi を使用します
me 形式は、指定したファイルの最終アクセス日を返します。
7.カラフルなラベル。
Delphi が提供する単純なタグにはもう満足できません。
ラベルにはさまざまなフォントや色があり、私たちを豊かにします
パフォーマンス能力。答えは「はい」です。サードパーティによる制御は必要ありません。
ソフトウェアを使用するには、Delphi 自体が提供する TRichEdit をうまく使用する必要があります。
それでおしまい。まず、TRichEdit コントロールの境界線を削除します: RichEd??it1
． BorderStyle: ΚbsNone も読み取り専用属性を true: Rich に設定します。
エド??それ1。 ReadOnly: ΚTrue の場合は、write などを使用します。
ソフトウェアがリッチテキスト形式でテキストを作成した後、次のステートメントを通じてそれを表示できます。
それは次のように示されています。
リッチエディット1.プレーンテキスト:ΚFalse;
リッチエディット1.行． LoadFromFile('c:ιtest.r
tf');
8. Win95 で重大なエラーが表示されないようにする方法。
プログラムを何度デバッグしても、プログラムがユーザーに渡された後は、常に
予期しないエラーが発生する可能性があります。Win95 が白表示になるのを防ぐ方法。
恥ずかしい予期せぬエラーが発生したことをユーザーに知らせるウィンドウはどうでしょうか?我々はできる
これを実行します:
変数
wOldError??モード: Word;
始める
//tellwin??重大なエラーを無視して保存する
現在??レンタルエラーモード
wOldError??モード: ΚSetEr??rorMode (SEM-FAILCR)
ITI??CALERRORS);
試す
//重大なエラーが発生する可能性のあるコード
e. ． ．
ついに
//前のエラーモードに戻る
SetErrorMode(wOldErrorMode);
終わり;
終わり;
この関数を完了するには、主に SetErrorMode() を使用します。
9.マウスでクリックされたオブジェクトはどれですか。
Win95ではマウスの右ボタンが大きな役割を果たしますが、
歴史的な理由により、Delphi であっても右クリックの使用は依然として困難です。
十分に効果的ではありませんが、次のプログラムは、右クリックされたことを知る方法を教えてくれます。
オブジェクト名。まずポップメニューを作成してから、次のコードを実行します。
右クリックしたオブジェクトの名前を伝えるには、Popup??Menu1 とします。ポップアップコム
コンポーネント。クラス名。
10． CD-ROM や他のディスクが変更されていないか確認してください。
CD-ROM またはディスクが変更されたかどうかを確認する最も簡単な方法
ボリューム番号を確認することです。次の関数を使用するだけで、次の関数を返すことができます。
ディスクのボリューム シリーズ番号を返します GetDiskVolSerialID ('E')、
関数コードは次のとおりです。
functionGetDiskVolSerialID(cDriveName: char)
:DWord;
変数
dwTemp1、dwTemp2: DWord;
始める
GetVolumeInformation(PChar(cDriveName+':
ι')、
ニル、
0、
Ν結果、
dwTemp2、
dwTemp2、
ニル、
0);
終わり;