◇ [Delphi] ไฟล์สำเนาเพื่อนบ้านเครือข่าย
ใช้ Shellapi;
Copyfile (pchar ('newfile.txt'), pchar ('// คอมพิวเตอร์/direction/targer.txt'), false);
◇ [Delphi] สร้างเอฟเฟกต์การลากเมาส์
ดำเนินการผ่านเหตุการณ์ Mousemove เหตุการณ์ Dragover และ Event enddrag เช่น Label on Panel:
var xpanel, ypanel, xlabel, ylabel: จำนวนเต็ม;
เหตุการณ์ mousemove ของแผง: xpanel: = x; ypanel: = y;
เหตุการณ์การลากของแผงควบคุม: XPanel: = x; ypanel: = y;
เหตุการณ์ mousemove ของฉลาก: xlabel: = x; ylabel: = y;
เหตุการณ์ enddrag ของฉลาก: label.left: = xpanel-xlabel; label.top: = ypanel-alabel;
◇ [Delphi] รับไดเรกทอรี Windows
ใช้ Shellapi;
var windir: อาร์เรย์ [0..255] ของถ่าน;
ไดเรกทอรี getWindir (Windir, sizeof (windir));
หรืออ่านจากรีจิสทรีสถานที่:
HKEY_LOCAL_MACHINE/ซอฟต์แวร์/Microsoft/Windows/Currentversion
SystemRoot Key, Get: 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: = เคล็ดลับ [0];
tips.add ('สตริงการเพิ่มบรรทัดสุดท้าย');
tips.insert (1, 'แทรกสตริงที่ไม่มี 2 บรรทัด');
tips.savetofile ('newfile.txt');
เคล็ดลับฟรี;
◇ [Delphi] การทำงานของคลิปบอร์ดอย่างง่าย
RICKEDIT1.SELECTALL;
RICHEDIT1.COPYTOCLIPBOARD;
RICHEDIT1.CUTTOCLIPBOARD;
edit1.pastefromclipboard;
◇ [Delphi] เกี่ยวกับการดำเนินการไฟล์และไดเรกทอรี
chdir ('c:/abcdir');
mkdir ('dirname'); สร้างไดเรกทอรี
Rmdir ('Dirname');
getCurrentDir; // รับชื่อไดเรกทอรีปัจจุบันไม่มี '/'
getdir (0, s); // รับชื่อไดเรกทอรีการทำงาน s: = 'c:/abcdir';
deletFile ('abc.txt'); // ลบไฟล์
RenameFile ('old.txt', 'new.txt'); // การเปลี่ยนชื่อไฟล์
ExtractFilename (fileListBox1.filename); // รับชื่อไฟล์
ExtractFileEX
◇ [delphi] แอตทริบิวต์ไฟล์กระบวนการ
attr: = fileGetAttr (fileListBox1.filename);
ถ้า (attr และ fareadonly) = fareadonly แล้ว ... // อ่านอย่างเดียวเท่านั้น
if (attr และ fasysfile) = fasysfile แล้ว ... // ระบบ
if (attr และ faarchive) = faarchive แล้ว ... // เก็บถาวร
ถ้า (attr และ fahidden) = fahidden แล้ว ... // ซ่อน
◇ [Delphi] เรียกใช้ไฟล์โปรแกรมภายนอก
winexec // การเรียกไฟล์ที่เรียกใช้งานได้
winexec ('command.com /c สำเนา *. * c: /', sw_normal);
winexec ('เริ่ม abc.txt');
Shellexecute หรือ Shellexecuteex // เริ่มโปรแกรม Association File
ฟังก์ชั่น executeFile (ชื่อไฟล์ const, params, defaultdir: string; showcmd: จำนวนเต็ม): thandle;
ExecuteFile ('C: /abc/a.txt', 'X.ABC', 'C:/ABC/', 0);
ExecuteFile ('http: //tingweb.yeah.net','''',0);
ExecuteFile ('Mailto: [email protected]', '', '', 0);
◇ [Delphi] รับชื่อกระบวนการของระบบที่ทำงาน
var hcurrentWindow: hwnd; sztext: array [0..254] ของถ่าน;
เริ่ม
hcurrentWindow: = getWindow (handle, gw_hwndfrist);
ในขณะที่ hcurrentWindow <> 0 ทำ
เริ่ม
ถ้า getWindowText (hcurnetWindow,@sztext, 255)> 0 จากนั้น listbox1.items.add (strpas (@SzText));
hcurrentWindow: = getWindow (HCurrentWindow, GW_HWNDNEXT);
จบ;
จบ;
◇ [Delphi] ฝังในแอสเซมบลี
asm end;
EAX, ECX, EDX สามารถแก้ไขได้ที่ Will;
◇ [Delphi] เกี่ยวกับฟังก์ชันการแปลงประเภท
floattostr // floatpoint เป็นสตริง
floattostostrf // floatpoint เป็นสตริงด้วยรูปแบบ
inttohex // จำนวนเต็มไปที่ hexadecimal
TimetoStr
DatetoStr
DateTimetOSTR
FMTSTR // สตริงเอาต์พุตในรูปแบบที่ระบุ
FormatDateTime ('YYYY-MM-DD, HH-MM-SS', วันที่);
◇ [Delphi] กระบวนการและฟังก์ชั่นของสตริง
แทรก (OBJ, Target, POS); // เป้าหมายสตริงถูกแทรกที่ตำแหน่งของ POS หากผลการแทรกมากกว่าความยาวสูงสุดของเป้าหมายอักขระพิเศษจะถูกตัดออก หาก POS อยู่นอก 255 มันจะทำให้เกิดข้อผิดพลาดในการทำงาน ตัวอย่างเช่น ST: = 'Brian' จากนั้นแทรก ('OK', ST, 2) จะทำให้ ST กลายเป็น 'Brokian'
DELETE (ST, POS, NUM); // drop Out Substrings ที่มีอักขระ NUM จำนวนหนึ่ง (อินทิกรัล) จากตำแหน่ง POS ในสตริง ST ตัวอย่างเช่น ST: = 'Brian' จากนั้นลบ (ST, 3,2) จะกลายเป็น BRN
str (value, st); // แปลงค่าตัวเลข (อินทิกรัลหรือของจริง) เป็นสตริงและใส่ไว้ใน ST ตัวอย่างเช่นเมื่อ A = 2.5E4, STR (A: 10, ST) จะทำให้ค่าของ ST เป็น '25000'
val (st, var, code); // แปลง String Expression ST เป็นจำนวนเต็มที่สอดคล้องกันหรือค่าจริงและเก็บไว้ใน var ST ต้องเป็นสตริงที่แสดงถึงค่าตัวเลขและสอดคล้องกับกฎของค่าคงที่ตัวเลข ในระหว่างกระบวนการแปลงหากไม่ตรวจพบข้อผิดพลาดรหัสตัวแปรจะถูกตั้งค่าเป็น 0 มิฉะนั้นจะถูกตั้งค่าเป็นตำแหน่งของอักขระข้อผิดพลาดแรก ตัวอย่างเช่น ST: = 25.4E3, X เป็นตัวแปรจริงจากนั้น val (st, x, รหัส) จะทำให้ค่า x 25400 และค่ารหัส 0
Copy (St.Pos.Num); // ส่งคืนสตริงย่อยที่เริ่มต้นที่ตำแหน่งในสตริง ST ที่ POS (อินทิกรัล) และมีอักขระ NUM (อินทิกรัล) หาก POS มากกว่าความยาวของสตริง ST สตริงที่ว่างเปล่าจะถูกส่งคืน ตัวอย่างเช่น ST: = 'Brian' จากนั้นคัดลอก (ST, 2,2) ส่งคืน 'RI'
concat (st1, st2, st3 ... , stn); // เชื่อมต่อสตริงทั้งหมดที่แสดงโดยอาร์กิวเมนต์ในลำดับที่ให้และส่งคืนค่าที่เชื่อมต่อ หากผลลัพธ์คือความยาว 255 จะมีการสร้างข้อผิดพลาดในการทำงาน ตัวอย่างเช่น st1: = 'Brian', st2: = '', st3: = 'Wilfred', จากนั้น concat (st1, st2, st3) กลับ 'Brian Wilfred'
ความยาว (ST); // ส่งคืนความยาวของนิพจน์สตริง st ตัวอย่างเช่น ST: = 'Brian' จากนั้นค่าส่งคืนความยาว (ST) คือ 5
POS (OBJ, Target); // ส่งคืนตำแหน่งที่สตริง OBJ ปรากฏตัวครั้งแรกในเป้าหมายสตริงเป้าหมาย ตัวอย่างเช่นเป้าหมาย: = 'Brian Wilfred' จากนั้นค่าส่งคืนของ POS ('Wil', Target) คือ 7 และค่าคืนของ POS ('Hurbet', Target) คือ 0
◇ [Delphi] เกี่ยวกับการประมวลผลรีจิสทรี
ใช้รีจิสทรี
VAR Reg: Tregistry;
reg: = tregistry.create;
reg.rootkey: = 'hkey_current_user';
reg.openkey ('แผงควบคุม/เดสก์ท็อป', เท็จ);
reg.writestring ('วอลล์เปเปอร์ชื่อ', '0');
reg.writestring ('วอลล์เปเปอร์', 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] โปรแกรมการตัดสินเบื้องต้นภาษาพื้นเมือง
เคล็ดลับ DOS สำหรับซอฟต์แวร์ Delphi: โปรแกรมนี้จะต้องทำงานภายใต้ Win32
เคล็ดลับ DOS สำหรับซอฟต์แวร์ VC ++: โปรแกรมนี้ไม่สามารถทำงานได้ในโหมด DOS
◇ [Delphi] การดำเนินการคุกกี้
Response.cookies ("ชื่อ") .domain: = 'http: //www.086net.com';
ด้วย response.cookies.add ทำ
เริ่ม
ชื่อ: = 'ชื่อผู้ใช้';
ค่า: = 'ชื่อผู้ใช้';
จบ
◇ [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 แล้ว ... // f1
ถ้า msg.message = 113 แล้ว ... // f2
จบ;
◇ [หมวดหมู่แต่งงาน] ซ่อนโฟลเดอร์ที่ใช้ร่วมกัน
การแบ่งปันเอฟเฟกต์: เข้าถึงได้ แต่ไม่สามารถมองเห็นได้ (ในการจัดการทรัพยากรเพื่อนบ้านเครือข่าย)
ใช้ชื่อหุ้น: ทิศทาง $
เยี่ยมชม: // คอมพิวเตอร์/ทิศทาง/
◇ [Java Script] เอฟเฟกต์ทั่วไปของหน้าเว็บสคริปต์ Java
หน้าเว็บปิดเป็นประจำเป็นเวลา 60 วินาที
<ภาษาสคริปต์ = "สคริปต์ java"> <!-
settimeout ('window.close ();', 60000)
-> </script>
ปิดหน้าต่าง
<a href = "/" onclick = "JavaScript: window.close (); return false;" ปิด </a>
URL ที่กำหนดเวลา
<meta http-equiv = "Refresh" content = "40; url = http: //www.086net.com">
ตั้งค่าเป็นโฮมเพจ
<a onclick = "this.style.behavior = 'url (#เริ่มต้น#หน้าแรก)'; this.sethomepage ('http://086net.com');" href = "#"> ตั้งเป็นหน้าแรก </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 (สุ่ม (255), สุ่ม (255), สุ่ม (255));
◇ [Delphi] Delphi5 อัปเดตหมายเลขซีเรียลอัพเกรด
1000003185
90x25fx0
◇ [Delphi] การกรองอักขระที่ผิดกฎหมายของชื่อไฟล์
สำหรับ i: = 1 ถึงความยาวทำ
ถ้า s [i] ใน ['/', '/', ':', '*', '?', '<', '>', '|'] แล้ว
◇คำจำกัดความและคำอธิบายของฟังก์ชั่นการแปลง [Delphi]
DateTimetofiledate (DateTime: TDATETIME): Longint;
DateTimetOstr (DateTime: TDATETIME): String; สตริงส่งคืนจะถูกส่งคืน
DateTimetOstring (สตริงผลลัพธ์ var;
รูปแบบ const: สตริง;
DateTime: TDATETIME);
DatetOstr (วันที่: tDatetime) ใช้สตริงรูปแบบที่กำหนดโดยตัวแปร global shortdateformat เพื่อแปลงพารามิเตอร์วันที่เป็นสตริงที่เกี่ยวข้อง
floattodecimal (ผลลัพธ์ var: tfloatrec; ค่า:
ขยายความแม่นยำทศนิยม:
จำนวนเต็ม);
FloattOSTR (ค่า: ขยาย): สตริงแปลงค่าจุดลอยตัวเป็นรูปแบบสตริง
floattotext (บัฟเฟอร์: pchar; ค่า: ขยาย;
รูปแบบ: tfloatformat; ความแม่นยำ,
ตัวเลข: จำนวนเต็ม): จำนวนเต็ม; ใช้รูปแบบที่กำหนดความแม่นยำและทศนิยมเพื่อแปลงค่าจุดลอยตัวเป็นตัวแทนทศนิยม ในบัฟเฟอร์
floattotextfmt (บัฟเฟอร์: pchar; ค่า: ขยาย;
รูปแบบ: pchar): จำนวนเต็มแปลงค่าจุดลอยตัวเป็นการแสดงทศนิยมในรูปแบบที่กำหนดและผลลัพธ์การแปลงจะถูกเก็บไว้ในพารามิเตอร์บัฟเฟอร์
inttoHex (ค่า: longint; ตัวเลข: จำนวนเต็ม):
String; ตัวเลขพารามิเตอร์ให้จำนวนตัวเลขที่มีอยู่ในสตริงผลลัพธ์การแปลง
inttoStr (ค่า: longint): สตริงแปลงจำนวนเต็มเป็นสตริงทศนิยม
strtodate (const s: string): tdatetime แปลงสตริงเป็นค่าวันที่
strtodatetime (const s: string): tdatetime แปลงสตริง s เป็นรูปแบบวันที่ การตั้งค่าค่าคงที่เวลาของระบบเวลาที่เกี่ยวข้อง หากไม่ได้ระบุข้อมูล AM หรือ PM หมายความว่าใช้ระบบ 24 ชั่วโมง
strtofloat (const s: string): ขยาย;
[+|-] nnn … [.] nnn … [<+|-> <e | e> <+|-> nnnn]
StrToint (String): Longint แปลงสตริงตัวเลขเป็นจำนวนเต็ม
strtointdef (const s: string; ค่าเริ่มต้น:
Longint): Longint;
strtotime (const s: string): tdatetime แปลงสตริง s เป็นค่า tdateTime, S มีรูปแบบ HH: MM: SS [AM | PM] และรูปแบบจริงเกี่ยวข้องกับตัวแปรส่วนกลางที่เกี่ยวข้องกับเวลาของระบบ
TimetOstr (เวลา: TDATETIME): String; รูปแบบของสตริงผลลัพธ์การแปลงนั้นเกี่ยวข้องกับการตั้งค่าค่าคงที่ตามเวลาของระบบ
◇ [Delphi] โปรแกรมไม่ปรากฏใน alt+ctrl+del
เพิ่มการประกาศหลังจากการดำเนินการ:
Function RegisterServiceProcess (dwprocessid, dwtype: จำนวนเต็ม): จำนวนเต็ม;
RegistERServiceProcess (getCurrentProcessId, 1); // ซ่อน
RegistERSerViceProcess (getCurrentProcessId, 0); // show
มองไม่เห็นด้วย alt+del+ctrl
โปรแกรม◇ [Delphi] ไม่ปรากฏในแถบงาน
ใช้ Windows
วาจา
ExtendedStyle: จำนวนเต็ม;
เริ่ม
Application.initialize;
// ==================================================== =====================
ExtendedStyle: = getWindowLong (application.handle, gwl_exstyle);
setWindowLong (application.handle, gwl_exstyle, extendedstyle หรือ ws_ex_toolwindow
และไม่ใช่ ws_ex_appwindow);
// ==================================================== ======================
application.createform (tform1, form1);
Application.run;
จบ.
◇ [Delphi] วิธีการตรวจสอบว่าเครือข่ายการโทรเปิดเปิดหรือปิด
ถ้า getSystemMetrics (sm_network) และ $ 01 = $ 01 แล้ว
ShowMessage ('ออนไลน์!')
else showmessage ('ไม่ออนไลน์!');
◇ [Delphi] ใช้ IP เป็นการแปลงชื่อโดเมน
ฟังก์ชั่น getDomainName (IP: String): String;
วาจา
Ph: นักเล่นกล;
ข้อมูล: twsadata;
II: DWORD;
เริ่ม
WSASTARTUP ($ 101, ข้อมูล);
II: = inet_addr (pchar (ip));
pH: = getHostByaddr (@II, sizeof (ii), pf_inet);
ถ้า (pH <> nil) แล้ว
ผลลัพธ์: = ph.h_name
อื่น
ผลลัพธ์: = '';
WSACLEANUP;
จบ;
◇ [Delphi] วิธีการจัดการ "เมนูคลิกขวา"
วาจา
Reg: Tregistry;
เริ่ม
reg: = tregistry.create;
reg.rootkey: = hkey_classes_root;
reg.openkey ('*/shell/check/command', จริง);
reg.writestring ('', '' ' + application.exename +' ""%1 "');
reg.closekey;
reg.openkey ('*/เชลล์/ไดอารี่', เท็จ);
reg.writestring ('', 'การกระทำ (& c)');
reg.closekey;
Reg.Free;
ShowMessage ('เสร็จแล้ว!');
จบ;
◇ [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);
วาจา
Str: String;
ไดรเวอร์: จำนวนเต็ม;
คนขับ: Char;
ฉันอุณหภูมิ: จำนวนเต็ม;
เริ่ม
ไดรเวอร์: = getLogicalDrives;
อุณหภูมิ: = (1 และไดรเวอร์);
สำหรับ i: = 0 ถึง 26 ทำ
เริ่ม
ถ้าอุณหภูมิ = 1 แล้ว
เริ่ม
ไดรเวอร์: = char (i+จำนวนเต็ม ('a'));
str: = driver+':';
ถ้า getDriveType (pchar (str)) = drive_cdrom แล้ว
เริ่ม
CD: = ไดรเวอร์;
ออก;
จบ;
จบ;
ไดรเวอร์: = (ไดรเวอร์ SHR 1);
อุณหภูมิ: = (1 และไดรเวอร์);
จบ;
จบ;
◇ [Delphi] การเข้ารหัสอักขระและการถอดรหัส
ฟังก์ชั่น cryptstr (const s: string; type: dword): string;
วาจา
ฉัน: จำนวนเต็ม;
FKEY: จำนวนเต็ม;
เริ่ม
ผลลัพธ์: = '';
ประเภทกรณีของ
0: setpass;
เริ่ม
สุ่ม;
FKEY: = สุ่ม ($ ff);
สำหรับ i: = 1 ถึงความยาวทำ
ผลลัพธ์: = ผลลัพธ์+chr (ord (s [i]) xor i xor fkey);
ผลลัพธ์: = ผลลัพธ์ + ถ่าน (FKEY);
จบ;
1: getPass
เริ่ม
FKEY: = ORD (S [ความยาว));
สำหรับ i: = 1 ถึงความยาว - 1 ทำ
ผลลัพธ์: = ผลลัพธ์+chr (ord (s [i]) xor i xor fkey);
จบ;
จบ;
□◇ [Delphi] ส่งปุ่มจำลองไปยังแอปพลิเคชันอื่น ๆ
วาจา
H: Thandle;
เริ่ม
H: = FindWindow (ไม่มีชื่อแอปพลิเคชัน ');
postmessage (h, wm_keydown, vk_f9, 0); // ส่งคีย์ f9
จบ;
□◇ [Delphi] Delphi รองรับรูปแบบข้อมูล DAO