Delphi เป็นภาษาเขียนโปรแกรม Windows ใหม่
คุณสมบัติที่ยอดเยี่ยมมากมายถูกรวมเข้าไว้ในที่เดียว ดังนั้นจึงได้รับความนิยมมากขึ้นเรื่อยๆ ในหมู่โปรแกรมเมอร์และโปรแกรมเมอร์
เป็นที่ชื่นชอบของนักออดิโอไฟล์ เทคนิคสิบประการต่อไปนี้ครอบคลุมหลากหลายด้าน ฉันหวังว่ามันจะทำได้
เพียงพอที่จะเป็นประโยชน์ต่อผู้ที่ชื่นชอบ Delphi
1. แอปที่คล้ายกับ vb doevents ทำงานใน
คุณอาจพบว่าไม่มีสิ่งใดเทียบเท่ากับ vb ใน Delphi เข้าแล้ว
ents ดังนั้นบางครั้งเราไม่สามารถทำให้ Windows ตอบสนองได้มากนัก
เหตุการณ์ที่เกิดขึ้นพร้อมกัน ที่จริงแล้วในวัตถุแอปพลิเคชัน Delphi
รวมถึงวิธีการที่คล้ายกัน: PROcessMessage คุณสามารถโทรได้
ใช้แอปพลิเคชัน ProcessMessage ให้เสร็จสมบูรณ์เช่น vb. เข้ามา
ไม่ใช่ฟังก์ชันเดียวกัน
2. โทรหา NetscapeNavigator ใน Delphi
ด้วยความนิยมของอินเทอร์เน็ต คุณเคยคิดที่จะใช้มันในโปรแกรม Delphi ของคุณหรือไม่?
เริ่มเบราว์เซอร์ Netscape และแสดงโฮมเพจของที่อยู่ WWW ที่คุณระบุ
- โปรแกรมต่อไปนี้สามารถบรรลุฟังก์ชันนี้ได้
โปรแกรมNetscape;
ใช้ DDEMan;
ขั้นตอน Go??toURL(sURL: string);
var
dde:TDDEClientConv;
เริ่ม
dde: ΚTDDEClientConv. สร้าง(ไม่มี);
ถอนออก
เริ่ม
//ระบุตำแหน่งของเน็ตสเคป อดีต
แอปพลิเคชันบริการ: Κ′c: ιns32ιprogramιne
tscape. เอ็กซ์';
//เปิดใช้งาน NetscapeNavigator
SetLink('Netscape', 'WWW-เปิดใช้งาน');
ขอข้อมูล('0xFFFFFFFF');
//gotothespecifiedURL
SetLink('Netscape', 'WWW-OpenURL');
ขอข้อมูล(sURL+′,,0xFFFFFFFF,0x3,,,
-
ปิดลิงค์;
จบ;
ดีดี ฟรี;
จบ;
เริ่ม
ไปที่URL(′http://www.yahoo.com/′);
จบ.
3. เอาต์พุตจำนวนเต็มที่จัดรูปแบบแล้ว
ตัวเลขที่มากขึ้นจะอ่านได้ยากเมื่อส่งออกใน Delphi
การแสดงตัวเลขพร้อมเครื่องหมายส่วนนั้นค่อนข้างง่าย ดังนี้: xx
xxx. คำบรรยายภาพ: ΚFormatFloat(′#′, 524667500)
4. รับคำแนะนำในเวลารวบรวม
ใน Delphi2.0 เมื่อทำการคอมไพล์ คุณสามารถขอให้คอมไพเลอร์บอกคุณบางอย่างได้
คำแนะนำ เช่น ตัวแปรใดที่ถูกประกาศแต่ไม่เคยใช้ เรารู้
ใช่ คุณสามารถควบคุมได้ว่าต้องการให้ Delphi ดำเนินการนี้หรือไม่ผ่านตัวเลือกในเมนู
แต่หากเนื่องมาจากความต้องการพิเศษบางอย่าง คุณจะต้องใช้เฉพาะในส่วนของโค้ดที่ระบุเท่านั้น
ฉันควรทำอย่างไรหากได้รับข้อความแจ้งเช่น lphi โปรดดูขั้นตอนต่อไปนี้
{$ฮินตัน}
ขั้นตอนTform1. Button1Click(ผู้ส่ง: TObject
-
var
X: จำนวนเต็ม;
เริ่ม
จบ;
{$คำแนะนำ}
5. เปลี่ยนวอลเปเปอร์ Windows95
คุณสามารถเปลี่ยนวอลเปเปอร์ได้อย่างง่ายดายใน Delphi โปรดดูข้อมูลต่อไปนี้
โปรแกรม
ขั้นตอน ChangeIt;
var
Reg:TregIniFile;
เริ่ม
Reg：ΚTRegIniFile. สร้าง ('แผงควบคุม')
-
เร็ก WriteString('เดสก์ท็อป', 'วอลเปเปอร์',
′c: ιpwin95ιfor??est. บีเอ็มพี');
เร็ก WriteString('desktop', 'TileWallpaper
′,′1′);
เร็ก ฟรี;
ข้อมูลพารามิเตอร์ของระบบ (SPI-SETDESKWALLPAPER, 0
, ไม่มี, SPIF-SENDWININICHANGE);
จบ;
6. รับวันที่ที่ไฟล์ถูกใช้ครั้งล่าสุด
มีคุณลักษณะใหม่ใน Win95 ซึ่งก็คือการเข้าถึงไฟล์ต่างๆ
วันสุดท้าย ซอฟต์แวร์ CleanSweapforWin95 ที่มีชื่อเสียงอาศัยสิ่งนี้
ฟังก์ชันนี้ใช้เป็นหนึ่งในพื้นฐานในการพิจารณาว่ามีการเข้าถึงไฟล์บ่อยหรือไม่
ใน Delphi เราสามารถบรรลุฟังก์ชันนี้ผ่านโปรแกรมต่อไปนี้
functionGetFileLastaccessTime (sFileName:stri
ng):TDate??เวลา;
var
ffd:TWin32FindData;
dft:DWord;
lf: TFileTime;
ชั่วโมง: THandle;
เริ่ม
//getfileinformation
h：ΚWindows. FindFirstFile(PChar(sFileName
) ffd);
ถ้า (ไม่ถูกต้อง ― จัดการ ― ค่า ΙΛh ) แล้ว
เริ่ม
//เรากำลังมองหาเพียงแค่ไฟล์เดียว,socloSEของเรา″f
ind″
หน้าต่าง ค้นหาปิด(h);
//แปลง FILETIMEtlocalFILETIME
FileTimeToLocalFileTime(ffd.ftLastAccessTime
,ซ้าย);
//แปลง FILETIMEtoDOStime
FileTimeToDosDateTime(lft,LongRec(dft).สวัสดี
,LongRec(dft) แท้จริง);
//สุดท้าย แปลง DOStimetoTDateTimeforusein
ฟังก์ชั่นวันที่/เวลาดั้งเดิมของ Delphi
ผลลัพธ์: ΚFileDateToDateTime(dft);
จบ;
จบ;
GetFileLastAccessTime() จะใช้ TdateTi ของ Delphi
me format ส่งคืนวันที่เข้าถึงล่าสุดของไฟล์ที่คุณระบุ
7. ฉลากสีสันสดใส
เราไม่พอใจกับแท็กง่ายๆ ที่ Delphi ให้มาอีกต่อไป
มีแบบอักษรและสีที่แตกต่างกันในฉลากเพื่อเสริมคุณค่าให้กับเรา
ความสามารถในการปฏิบัติงาน คำตอบคือใช่ และไม่จำเป็นต้องมีการควบคุมจากบุคคลที่สาม
ซอฟต์แวร์ เราเพียงแค่ต้องใช้ TRichEdit ที่ Delphi จัดเตรียมไว้ให้อย่างชาญฉลาด
แค่นั้นแหละ. ขั้นแรกให้ลบเส้นขอบของตัวควบคุม TRichEdit: RichEd??it1
- BorderStyle: ΚbsNone; ยังตั้งค่าแอตทริบิวต์แบบอ่านอย่างเดียวเป็นจริง: Rich
เอ็ด??it1. อ่านอย่างเดียว: Κจริง; จากนั้นคุณใช้การเขียนหรือสิ่งที่คล้ายกัน
หลังจากที่ซอฟต์แวร์สร้างข้อความในรูปแบบ RichText คุณสามารถแสดงข้อความผ่านคำสั่งต่อไปนี้ได้
มันแสดงให้เห็น:
RichEdit1. ข้อความธรรมดา:ΚFalse;
RichEdit1. เส้น. LoadFromFile(′c: ιtest.r
ทีเอฟ');
8. วิธีป้องกันไม่ให้ Win95 แสดงข้อผิดพลาดร้ายแรง
ไม่ว่าคุณจะดีบั๊กโปรแกรมของคุณกี่ครั้ง หลังจากที่ส่งมอบให้กับผู้ใช้แล้ว มันก็จะยังคงอยู่เสมอ
อาจเกิดข้อผิดพลาดที่ไม่คาดคิด วิธีป้องกันไม่ให้ Win95 แสดงเป็นสีขาว
แล้วหน้าต่างที่บอกผู้ใช้ของคุณว่ามีข้อผิดพลาดที่น่าอับอายและไม่คาดคิดเกิดขึ้นล่ะ เราทำได้
ทำสิ่งนี้:
var
เกิดข้อผิดพลาดหรือไม่โหมด: Word;
เริ่ม
//tellwin??dowstoignorecriticalerrorsandsave
cur??renterrormode
OldError??Mode: SetEr??rorMode (SEM-FAILCR
อิติ?? ปฏิทิน);
พยายาม
//โค้ดที่อาจสร้างข้อผิดพลาดที่สำคัญ
จ. - -
ในที่สุด
//gobacktopreviouserrormode
SetErrorMode(wOldErrorMode);
จบ;
จบ;
ส่วนใหญ่ใช้ SetErrorMode() เพื่อทำหน้าที่นี้ให้สมบูรณ์
9. วัตถุใดที่เพิ่งคลิกด้วยเมาส์
ใน Win95 ปุ่มขวาของเมาส์มีบทบาทสำคัญ แต่
ด้วยเหตุผลทางประวัติศาสตร์ การใช้การคลิกขวายังคงทำได้ยากแม้ใน Delphi
โปรแกรมต่อไปนี้ยังไม่มีประสิทธิภาพเพียงพอสามารถบอกคุณได้ว่าคุณจะรู้ได้อย่างไรเมื่อคุณคลิกขวา
ชื่อวัตถุ ขั้นแรกให้สร้างเมนูป๊อปอัป จากนั้นจึงใช้โค้ดต่อไปนี้ได้
เพื่อบอกชื่อของวัตถุที่คุณเพิ่งคลิกขวา: ป๊อปอัป??เมนู1. ป๊อปอัพคอม
ผู้เสนอ ชื่อคลาส
10. ตรวจสอบว่าซีดีรอมหรือดิสก์อื่นๆ มีการเปลี่ยนแปลงหรือไม่
วิธีที่ง่ายที่สุดในการตรวจสอบว่ามีการเปลี่ยนแปลงซีดีรอมหรือดิสก์หรือไม่
คือการตรวจสอบหมายเลขระดับเสียง คุณสามารถใช้ฟังก์ชันต่อไปนี้เพื่อส่งคืนได้
ส่งกลับหมายเลขชุดวอลุ่มของดิสก์ GetDiskVolSerialID ('E')
รหัสฟังก์ชันจะเป็นดังนี้:
functionGetDiskVolSerialID (cDriveName: ถ่าน)
:DWord;
var
dwTemp1, dwTemp2: DWord;
เริ่ม
รับข้อมูลปริมาณ (PChar (cDriveName + ′:
ι'),
ไม่มี
0,
Νผลลัพธ์
dwTemp2,
dwTemp2,
ไม่มี
0);
จบ;