◇[delphi]ネットワークネイバーコピーファイル
Shellapiを使用します。
copyfile（pchar（ 'newfile.txt'）、pchar（ '// computername/direction/targer.txt'）、false）;
◇[Delphi]は、マウスのドラッグ効果を生成します
Mousemoveイベント、ドラゴオーバーイベント、およびパネル上のラベルなどのEndDragイベントを通じて実装されています。
var xpanel、ypanel、xlabel、ylabel：整数;
パネルのMousemoveイベント：xpanel：= x; ypanel：= y;
パネルのドラッグオーバーイベント：xpanel：= x; ypanel：= y;
ラベルのMousemoveイベント：xlabel：= x; ylabel：= y;
Label's Enddragイベント：label.left：= xpanel-xlabel; label.top：= ypanel-ilabel;
◇[delphi] Windowsディレクトリを取得します
Shellapiを使用します。
var Windir：charの配列[0..255];
GetWindir Directory（Windir、Sizeof（Windir））;
または、レジストリ、場所から読む：
hkey_local_machine/software/microsoft/windows/currentversion
SystemRootキー、取得：C：/Windows
◇[delphi]フォームまたは他のコンテナにラインを描画します
var x、y：整数の配列[0..50]。
canvas.pen.color：= clred;
canvas.pen.style：= pSdash;
form1.canvas.moveto（trunc（x [i]）、trunc（y [i]））;
form1.canvas.lineto（trunc（x [j]）、trunc（y [j]））;
◇[delphi]文字列リストの使用法
VARヒント：TSTRINGLIST;
ヒント：= tstringlist.create;
tips.loadfromfile（ 'filename.txt'）;
edit1.text：= tips [0];
tips.add（ '最後の行追加文字列'）;
Tips.Insert（1、 'no 2 Lineに文字列を挿入'）;
tips.savetofile（ 'newfile.txt'）;
Tips.Free;
◇[Delphi]簡単なクリップボード操作
rithedit1.selectall;
rithedit1.copytoclipboard;
rithedit1.cuttoclipboard;
edit1.pastefromclipboard;
fileファイルおよびディレクトリ操作に関する[Delphi]
chdir（ 'c：/abcdir'）;
mkdir（ 'dirname'）;作成ディレクトリの作成
rmdir（ 'dirname'）;
getCurrentDir; //現在のディレクトリ名を取得します、no '/'
getDir（0、s）; //作業ディレクトリ名s：= 'c：/abcdir'を取得します;
deletfile（ 'abc.txt'）; //ファイルを削除します
renamefile（ 'old.txt'、 'new.txt'）; //ファイル名の変更
ExtractFileName（fileListbox1.fileName）; //ファイル名を取得します
extractfileext（filelistbox1.filename）; //ファイルの接尾辞を取ります
◇[Delphi]プロセスファイル属性
attr：= filegetattr（fileListbox1.fileName）;
if（attr and fareadonly）= fareadonly then ... // readonlyのみ
if（attr and fasysfile）= fasysfile then ... // system
if（attr and faarchive）= faarchive then ... //アーカイブ
if（attr and fahidden）= fahidden then ... //非表示
◇[Delphi]外部プログラムファイルを実行します
Winexec //実行可能ファイルの呼び出し
winexec（ 'command.com /c copy *。 * c： /'、sw_normal）;
winexec（ 'abc.txt'を開始）;
shellexecuteまたはshellexecuteex //ファイルアソシエーションプログラムを開始します
function executefile（const filename、params、defaultdir：string; showcmd：integer）：thandle;
executeFile（ 'c：/abc/a.txt'、 'x.abc'、 'c：/abc/'、0）;
executeFile（ 'http：//tingweb.yeah.net'、' '' '、' '、' ''）;
executeFile（ 'mailto：[email protected]'、 ''、 ''、0）;
◇[Delphi]実行中のシステムのプロセス名を取得します
var hcurrentwindow：hwnd; sztext：array [0..254] of char;
始める
hcurrentWindow：= getWindow（handle、gw_hwndfrist）;
hcurrentWindow <> 0
始める
getWindowText（hcurrnetwindow、@sztext、255）> 0 then listbox1.items.add（strpas（@sztext））;
hcurrentWindow：= getWindow（hcurrentWindow、gw_hwndnext）;
終わり;
終わり;
◇[delphi]アセンブリに埋め込みます
ASM終了;
EAX、ECX、EDXは、ESI、EDI、EBP、およびEBXを変更できます。
◇[Delphi]タイプ変換関数について
floattostr // stringからfloatpoint
floattostostrf // floatpoint to string with format
inttohex // hexadecimalへの整数
TimeToStr
DateToStr
DateTimetoStr
FMTSTR //指定された形式の出力文字列
formatdateTime（ 'yyyy-mm-dd、hh-mm-ss'、date）;
◇[delphi]文字列のプロセスと関数
挿入（obj、ターゲット、pos）; //文字列ターゲットはposの位置に挿入されます。挿入結果がターゲットの最大長よりも大きい場合、余分な文字が切断されます。 POSが255の外側にある場合、実行中のエラーが発生します。たとえば、st：= 'brian'、insert（ 'ok'、st、2）は、st stが「ブローキア」になります。
delete（st、pos、num）; // st stringのpos位置から多数のnum（積分）文字を備えたサブストリングをドロップアウトします。たとえば、st：= 'brian'、delete（st、3,2）がbrnになります。
str（value、st）; //数値（積分または現実）を文字列に変換し、stに入れます。たとえば、a = 2.5e4、str（a：10、st）がstの値を「25000」にする場合。
val（st、var、code）; // string式stを対応する整数または実際の値に変換し、varに保存します。 STは、数値を表す文字列であり、数値定数のルールに準拠する必要があります。変換プロセス中に、エラーが検出されない場合、変数コードは0に設定されます。そうしないと、最初のエラー文字の位置に設定されます。たとえば、st：= 25.4e3、xは実際の変数であり、val（st、x、code）はx値25400とコード値0になります。
copy（St.Pos.num）; // POS（積分）のSTストリングの位置から始まり、num（積分）文字を含むサブストリングを返します。 POSがSTストリングの長さよりも大きい場合、空の文字列が255の外側にある場合、実行エラーが発生します。たとえば、st：= 'brian'、次にコピー（st、2,2）は「ri」を返します。
concat（st1、st2、st3 ...、stn）; //引数で表されるすべての文字列を指定された順序で接続し、接続値を返します。結果が長さ255の場合、実行エラーが生成されます。たとえば、st1：= 'brian'、st2：= ''、st3：= 'wilfred'、concat（st1、st2、st3）は「ブライアン・ウィルフレッド」を返します。
長さ（st）; // string式stの長さを返します。たとえば、st：= 'brian'、その後、長さ（st）戻り値は5です。
pos（obj、ターゲット）; //ターゲットがターゲットに一致しない場合、文字列OBJが最初に表示される位置を返します。たとえば、Target：= 'Brian Wilfred'、Pos（ 'wil'、Target）の返品値は7、Pos（ 'Hurbet'、Target）の返品値は0です。
Registryの処理について[Delphi]
レジストリを使用します。
VAR REG：Tregistry;
reg：= tregistry.create;
reg.rootkey：= 'hkey_current_user';
reg.openkey（ 'コントロールパネル/デスクトップ'、false）;
reg.writestring（ 'title Wallpaper'、 '0'）;
reg.writestring（ 'Wallpaper'、filelistbox1.filename）;
Reg.Closereg;
reg.free;
[キーボード定数名について] [Delphi]
VK_BACK/VK_TAB/VK_RETURN/VK_SHIFT/VK_CONTROL/VK_MENU/VK_PAUSE/VK_ESCAPE
/vk_space/vk_left/vk_right/vk_up/vk_down
F1 - F12：$ 70（112） - $ 7B（123）
AZ：$ 41（65） - $ 5A（90）
0-9：$ 30（48） - $ 39（57）
◇[Delphi]予備判断プログラム先住民
DelphiソフトウェアのDOSヒント：このプログラムはWin32で実行する必要があります。
VC ++ソフトウェアのDOSのヒント：このプログラムはDOSモードで実行できません。
◇[delphi]操作Cookies
Response.Cookies（ "name"）.domain：= 'http：//www.086net.com';
Response.cookies.add do
始める
名前：= 'username';
値：= 'username';
終わり
◇[delphi]ドキュメントメニュー接続に追加します
Shellapi、Shlobjを使用します。
Shaddtorecentdocs（shard_path、pchar（filepath））; //接続を追加します
Shaddtorecentdocs（shard_path、nil）; // clear
◇[既婚カテゴリ]バックアップインテリジェントABC入力メソッド辞書
Windows/system/user.rem
Windows/System/TMMR.REM
◇[Delphi]マウスボタンの裁判官
getasynckeystate（vk_lbutton）<> 0の場合... //左キー
getasynckeystate（vk_mbutton）<> 0の場合... //中キー
getasynckeystate（vk_rbutton）<> 0の場合... //右クリックします
◇[delphi]フォームの最大表示を設定します
OnformCreateイベント
self.width：= screen.width;
self.height：= screen.height;
◇[Delphi]ボタンはメッセージを受け入れます
OnCreateイベントでの取り扱い：application.onmessage：= myonmessage;
手順tform1.myonmessage（var msg：tmsg; var handle：boolean）;
始める
msg.message = 256の場合... //任意のキー
msg.message = 112 then ... // f1の場合
msg.message = 113 then ... // f2の場合
終わり;
◇[既婚カテゴリ]共有フォルダーを非表示にします
共有効果：アクセス可能ですが、表示されていません（リソース管理、ネットワークネイバー）
共有名：Direction $
アクセス：//コンピューター/方向/
◇[Javaスクリプト] JavaスクリプトWebページの一般的な効果
Webページは定期的に60秒間閉鎖されます
<スクリプト言語= "javaスクリプト"> <！ -
setimeout（ 'window.close（）;'、60000）
- > </script>
ウィンドウを閉じます
<a href = "/" onclick = "javascript：window.close（）; return false;"> close </a>
時限URL
<Meta http-equiv = "reffery" content = "40; url = http：//www.086net.com">
ホームページとして設定します
<onclick = "this.style.behavior = 'url（＃default＃homepage）'; the.setomepage（ 'http://086net.com'）;" href = "＃"> set as homepage </a>
このサイトをブックマークしてください
<a href = "javascript：window.external.addfavorite（ 'http://086net.com'、 '[weiming pier]'）">このサイトを保存</a>
チャンネルに参加します
<a href = "javascript：window.external.addchannel（ 'http://086net.com'）">チャンネルに参加</a>
◇[delphi]テキストの色をランダムに生成します
ランダム化; //種子をランダム化します
MEMO1.FONT.COLOR：= RGB（Random（255）、Random（255）、Random（255））;
◇[delphi] delphi5アップグレードパッチシリアル番号を更新します
1000003185
90x25fx0
◇[Delphi]ファイル名の違法な文字フィルタリング
i：= 1から長さの場合
if s [i] in ['/'、 '/'、 '：'、 '*'、 '？'、 '<'、 '>'、 '|']
[[Delphi]変換関数の定義と説明
DateTimetOfileDate（DateTime：TDateTime）：longint;
DateTimeToStr（TDateTime）：TDATIME形式の変数を文字列に変換します。返品文字列は00:00:00です
DateTimetoString（var result string;
constフォーマット：string;
DateTime：tdateTime）
DateToStr（日付：TDATETIME）ShortDateFormatグローバル変数によって定義されたフォーマット文字列を使用して、日付パラメーターを対応する文字列に変換します
floattodecimal（var result：tfloatrec; value：
拡張;精度、小数：
整数）;フローティングポイント数を10進表現に変換します
floattostr（value：拡張）：Stringはフローティングポイント値を文字列形式に変換し、変換された数字の数は15ビットです。
floattotext（buffer：pchar; value：extended;
形式：tfloatformat; precision、
数字：整数）：指定された形式、小数点は、変換結果を小数点付けに変換します。バッファーでは、バッファーは0ではありません。
floattotextfmt（buffer：pchar; value：extended;
形式：PCHAR）：整数は、フローティングポイント値を指定された形式の小数表現に変換し、変換結果はバッファーパラメーターに保存されます。
inttohex（value：longint; digits：integer）：
文字列。パラメーター数字は、変換結果文字列に含まれる数字の数を示します。
inttostr（value：longint）：string整数を小数文字列に変換します
strtodate（const s：string）：tdateTimeは、文字列を日付値に変換する必要があります。
strtodateTime（const s：string）：tdateTimeは文字列を日付時間形式に変換します。システム時間定数の設定に関連しています。 AMまたはPM情報が指定されていない場合、24時間のシステムが使用されることを意味します。
strtofloat（const s：string）：拡張された文字列をフローティングポイント番号に変換し、文字列には次の形式があります。
[+| - ] nnn…[。] nnn…[<+| - > <e | e> <+| - > nnnn]
strtoint（const s：string）：longintは整数に変換します。
strtointdef（const s：string; default：
Longint）：sを数値に変換できない場合、strtointdef関数はパラメーターのデフォルトの値を返します。
strtotime（const s：string）：tdateTime string sをtdateTime値に変換し、sはHH：MM：SS [AM | PM]形式を持ち、実際の形式はシステムの時間に関連するグローバル変数に関連しています。
TimeToStr（Time：tdateTime）：文字列。変換結果文字列の形式は、システムの時間依存定数の設定に関連しています。
◇[delphi]プログラムは、alt+ctrl+delには表示されません
実装後に宣言を追加します。
関数RegisterServiceProcess（dwprocessid、integer）：integer;
RegisterServiceProcess（getCurrentProcessid、1）; // hide
RegisterServiceProcess（getCurrentProcessid、0）; // show
Alt+del+Ctrlでそれを見ることができません
◇[Delphi]プログラムはタスクバーには表示されません
Windowsを使用します
var
拡張スタイル：整数;
始める
Application.Initialize;
// ========================================================= ==================
extendedStyle：= getWindowlong（application.handle、gwl_exstyle）;
SetWindowlong（Application.Handle、GWL_EXSTYLE、EXTENDEDEDSTYLEまたはWS_EX_TOOLWINDOW
ws_ex_appwindowではなく）;
// ========================================================= ====================
application.createform（tform1、form1）;
application.run;
終わり。
◇[delphi]ダイヤルアップネットワークがオンまたはオフかどうかを判断する方法
getsystemmetrics（sm_network）と$ 01 = $ 01の場合
showmessage（ 'online！'）
else showmessage（ 'not online！'）;
◇[Delphi] IPをドメイン名変換に実装します
関数GetDomainName（IP：String）：String;
var
PH：腫瘍;
データ：Twsadata;
II：dword;
始める
wsastartup（101ドル、データ）;
II：= inet_addr（pchar（ip））;
PH：= gethostbyaddr（@ii、sizeof（ii）、pf_inet）;
if（ph <> nil）then
結果：= ph.h_name
それ以外
結果：= '';
wsacleanup;
終わり;
◇[delphi]「右クリックメニュー」を処理する方法
var
Reg：Tregistry;
始める
reg：= tregistry.create;
reg.RootKey：= hkey_classes_root;
reg.openkey（ '*/shell/check/command'、true）;
reg.writestring（ ''、 '"' + application.exename + '" "％1"'）;
Reg.Closekey;
reg.openkey（ '*/shell/diary'、false）;
reg.writestring（ ''、 'action（＆c）'）;
Reg.Closekey;
reg.free;
showmessage（ 'done！'）;
終わり;
◇[delphi]仮想キー値Ctrl vを送信します
手順sendpaste;
始める
keybd_event（vk_control、mapvirtualkey（vk_control、0）、0、0）;
keybd_event（ord（ 'v'）、mapvirtualkey（ord（ 'v'）、0）、0、0）;
keybd_event（ord（ 'v'）、mapvirtualkey（ord（ 'v'）、0）、keyeventf_keyup、0）;
keybd_event（vk_control、mapvirtualkey（vk_control、0）、keyeventf_keyup、0）;
終わり;
◇[Delphi]現在の光学駆動のドライブレター
手順getcdrom（var cd：char）;
var
str：文字列;
ドライバー：整数;
ドライバー：char;
私、温度：整数;
始める
ドライバー：= getLogicalDrives;
温度：=（1およびドライバー）;
i：= 0から26の場合
始める
temp = 1の場合
始める
ドライバー：= char（i+integer（ 'a'））;
str：= driver+'：';
getDriveType（PCHAR（STR））= Drive_CDROMの場合
始める
CD：=ドライバー;
出口;
終わり;
終わり;
ドライバー：=（ドライバーSHR 1）;
温度：=（1およびドライバー）;
終わり;
終わり;
◇[Delphi]文字の暗号化と復号化
関数cryptstr（const s：string; type：dword）：string;
var
I：整数;
fkey：整数;
始める
結果：= '';
ケースタイプのタイプ
0：SetPass;
始める
ランダム化;
fkey：= random（$ ff）;
i：= 1から長さの場合
結果：= result+chr（ord（s [i]）xor i xor fkey）;
結果：= result + char（fkey）;
終わり;
1：getPass
始める
fkey：= ord（s [length（s）]）;
i：= 1から長さ（s）-1 do
結果：= result+chr（ord（s [i]）xor i xor fkey）;
終わり;
終わり;
□◇[Delphi]他のアプリケーションにシミュレーションキーを送信します
var
H：サンドル;
始める
H：= FindWindow（nil、 'アプリケーションタイトル'）;
Postmessage（h、wm_keydown、vk_f9、0）; // f9キーを送信します
終わり;
□◇[Delphi] DelphiはDAOデータ形式をサポートしました