◇[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データ形式をサポートしました