◇ [Delphi] Network NEWSER NEWS
يستخدم شلابي.
CopyFile (pCHAR ('newfile.txt') ، pCHAR ('// computername/direction/targer.txt') ، false) ؛
◇ [Delphi] يولد تأثير السحب الماوس
تم تنفيذه من خلال حدث Mousemove ، وحدث Dragover ، وحدث enddrag ، مثل الملصق على اللوحة:
var xpanel ، ypanel ، xlabel ، ylabel: integer ؛
الحدث Mousemove للوحة: xpanel: = x ؛ ypanel: = y ؛
الحدث السحب للوحة: xpanel: = x ؛ ypanel: = y ؛
حدث Mousemove Label: xlabel: = x ؛ ylabel: = y ؛
enddrag label: label.left: = xpanel-xlabel ؛ label.top: = ypanel-ylabel ؛
◇ [Delphi] الحصول على دليل Windows
يستخدم شلابي.
var Windir: Array [0..255] of Char ؛
دليل getwindir (Windir ، sizeof (Windir)) ؛
أو اقرأ من السجل ، الموقع:
hkey_local_machine/software/microsoft/windows/currentVersion
مفتاح Systemroot ، الحصول على: C:/Windows
◇ [Delphi] رسم خطوط على النموذج أو حاويات أخرى
var x ، y: Array [0..50] of integer ؛
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 ، "إدراج سلسلة في رقم 2) ؛
Tips.SavetoFile ('newfile.txt') ؛
نصائح.
◇ [Delphi] عملية حافظة بسيطة
Richedit1.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) ؛ // احصل على اسم الملف
extractFileStex
◇ [Delphi] سمات ملف العملية
attr: = fileGetAttr (fileListBox1.Filename) ؛
إذا (attr و fareadonly) = fareadonly ثم ... // endonly فقط
if (attr و fasysfile) = fasysfile ثم ... / /نظام
إذا (attr و faarchive) = faarchive ثم ... / /أرشيف
إذا (attr and fahidden) = fahidden ثم ... // إخفاء
◇ [Delphi] تنفيذ ملفات البرنامج الخارجي
Winexec // استدعاء الملف القابل للتنفيذ
WineXec ('command.com /c copy *. * c: /' ، sw_normal) ؛
Winexec ('ابدأ abc.txt') ؛
Shellexecute أو Shellexecuteex // ابدأ برنامج جمعية الملفات
دالة executefile (اسم ملف const ، params ، defaultdir: string ؛ showcmd: integer): 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] of Char ؛
يبدأ
hcurrentwindow: = getWindow (مقبض ، gw_hwndfrist) ؛
بينما hcurrentwindow <> 0 تفعل
يبدأ
إذا getWindowText (hcurrnetwindow ،@sztext ، 255)> 0 ثم listbox1.items.add (strpas (sztext)) ؛
hcurrentwindow: = getWindow (hcurrentwindow ، gw_hwndnext) ؛
نهاية؛
نهاية؛
◇ [دلفي] التضمين على التجميع
نهاية ASM.
يمكن تعديل EAX و ECX و EDX حسب الرغبة ؛
◇ [دلفي] حول وظيفة تحويل النوع
floattostr // floatpoint إلى سلسلة
floattostrf // floatpoint إلى سلسلة مع التنسيق
inttohex // integer to hexadecimal
TIMETOSTR
Datetostr
Datetimetostr
سلسلة الإخراج FMTSTR // بالتنسيق المحدد
FormatDateTime ('yyyy-mm-dd ، hh-mm-ss' ، date) ؛
◇ [Delphi] عملية ووظائف السلاسل
إدراج (OBJ ، الهدف ، POS) ؛ // يتم إدخال هدف السلسلة في موضع نقاط البيع. إذا كانت نتيجة الإدراج أكبر من الحد الأقصى لطول الهدف ، فسيتم قطع الأحرف الإضافية. إذا كان POS خارج 255 ، فسوف يتسبب في وجود خطأ في الجري. على سبيل المثال ، ST: = 'Brian' ، ثم insert ('OK' ، st ، 2) سيجعل St "brokian".
حذف (ST ، POS ، NUM) ؛ // SUBSTRINGS مع عدد من الأحرف (متكاملة) من موضع 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 ، Code) سيجعل قيمة X 25400 وقيمة الرمز 0.
نسخ (st.pos.num) ؛ // إرجاع سلسلة فرعية تبدأ في موضع في سلسلة ST في POS (متكاملة) ويحتوي على أحرف (متكاملة). إذا كان POS أكبر من طول سلسلة ST ، فسيتم إرجاع سلسلة فارغة. على سبيل المثال ، ST: = 'Brian' ، ثم نسخ (ST ، 2،2) إرجاع 'RI'.
CORCAT (ST1 ، ST2 ، ST3 ... ، STN) ؛ // قم بتوصيل جميع الأوتار التي تمثلها الوسائط بالترتيب المعطى وإرجاع القيمة المتصلة. إذا كانت النتيجة هي الطول 255 ، فسيتم إنشاء خطأ تشغيل. على سبيل المثال ، ST1: = 'Brian' ، ST2: = '' ، ST3: = 'Wilfred' ، ثم concat (ST1 ، ST2 ، ST3) يعود 'Brian Wilfred'.
الطول (ST) ؛ // إرجاع طول string string st. على سبيل المثال ، ST: = 'Brian' ، ثم قيمة الإرجاع (ST) هي 5.
POS (OBJ ، الهدف) ؛ // إرجاع الموضع حيث تظهر السلسلة OBJ أولاً في هدف السلسلة الهدف. على سبيل المثال ، الهدف: = 'Brian Wilfred' ، ثم قيمة إرجاع POS ('WIL' ، الهدف) هي 7 ، وقيمة إرجاع POS ('Hurbet' ، الهدف) هي 0.
◇ [Delphi] حول معالجة السجل
يستخدم التسجيل ؛
var reg: tregistry ؛
ريج: = tregistry.create ؛
Reg.Rootkey: = 'Hkey_Current_user' ؛
reg.openkey ('لوحة التحكم/سطح المكتب' ، خطأ) ؛
Reg.WriteString ('Title Wallpaper' ، '0') ؛
Reg.WriteString ('Wallpaper' ، fileListBox1.Filename) ؛
reg.closereg ؛
ريج.
◇ [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)-5 أ (90)
0-9: 30 دولارًا (48)-39 دولارًا (57)
◇ [Delphi] برنامج الحكم الأولي اللغة الأصلية
نصائح DOS لبرنامج Delphi: يجب تشغيل هذا البرنامج تحت Win32.
نصائح DOS لبرنامج VC ++: لا يمكن تشغيل هذا البرنامج في وضع DOS.
◇ [Delphi] ملفات تعريف الارتباط
Response.cookies ("name") .domain: = 'http: //www.086net.com' ؛
مع الاستجابة. cookies.add تفعل
يبدأ
الاسم: = اسم المستخدم "؛
القيمة: = اسم المستخدم "؛
نهاية
◇ [Delphi] أضف إلى اتصال قائمة المستندات
يستخدم Shellapi ، shlobj ؛
ShaddtorecentDocs (Shard_Path ، Pchar (filepath)) ؛ // إضافة اتصال
ShaddtorecentDocs (Shard_Path ، nil) ؛ // clear
◇ [الفئة المتزوجة] قاموس طريقة إدخال ABC النسخ الاحتياطي
Windows/System/User.rem
Windows/System/Tmmr.rem
◇ [دلفي] القاضي زر الماوس
إذا كان getasynckeystate (vk_lbutton) <> 0 ثم ... // مفتاح اليسار
إذا كان getasynckeystate (vk_mbutton) <> 0 ثم ... // مفتاح متوسط
إذا كان getAsynckeyState (vk_rbutton) <> 0 ثم ... // انقر بزر الماوس الأيمن
◇ [Delphi] قم بتعيين الحد الأقصى لشراء النموذج
حدث OnFormcreate
self.width: = screen.width ؛
self.hight: = screen.hight ؛
◇ [Delphi] زر يقبل الرسائل
التعامل في حدث oncreate: application.onmessage: = myonMessage ؛
الإجراء tform1.myonMessage (var msg: tmsg ؛ var handle: boolean) ؛
يبدأ
إذا msg.message = 256 ثم ... / /أي مفتاح
إذا msg.message = 112 ثم ... // f1
إذا msg.message = 113 ثم ... // f2
نهاية؛
◇ [فئة متزوجة] إخفاء المجلدات المشتركة
تأثير المشاركة: متاح ، ولكن غير مرئي (في إدارة الموارد ، جيران الشبكة)
خذ اسم المشاركة: الاتجاه $
زيارة: // الكمبيوتر/الاتجاه/
◇ [جافا سيناريو] الآثار الشائعة لصفحات ويب نص جافا
يتم إغلاق صفحات الويب بانتظام لمدة 60 ثانية
<script language = "Java Script"> <!-
setTimeout ('window.close () ؛' ، 60000)
-> </script>
أغلق النافذة
<a href = "/" onClick = "javaScript: window.close () ؛ إرجاع خطأ ؛"> أغلق </a>
عنوان URL في توقيت
<meta http-equiv = "refresh" content = "40 ؛ url = http: //www.086net.com">
تعيين كصفحة رئيسية
<a onclick = "this.style.behavior = 'url (#الافتراضي#الصفحة الرئيسية)' ؛ this.sethomePage ('http://086net.com') ؛
ضع إشارة مرجعية على هذا الموقع
<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] تصفية الأحرف غير القانونية لأسماء الملفات
لأني: = 1 إلى الطول (الطول) تفعل
إذا كان S [i] في ['/' ، '/' ، ':' ، '*' ، '؟' ، '<' ، '>' ، '|']
◇ تعريف ووصف وظيفة التحويل [Delphi]
datetimetofiledate (DateTime: Tdatetime): Longint ؛
DateTimetSt (DateTime: TdateTime): يتم إرجاع سلسلة الإرجاع.
datetimetostring (سلسلة نتائج var ؛
تنسيق const: سلسلة ؛
DateTime: TdateTime) ؛
DateToStr (التاريخ: tdateTime) استخدم سلسلة التنسيق المحددة بواسطة متغير عالمي مختصر لتحويل معلمة التاريخ إلى السلسلة المقابلة
floattodecimal (var النتيجة: tfloatrec ؛ القيمة:
ممتد ؛ الدقة ، العشرية:
عدد صحيح) ؛
Floattostr (القيمة: ممتدة): يقوم السلسلة بتحويل قيمة النقطة العائمة إلى تنسيق سلسلة.
floattotext (المخزن المؤقت: pchar ؛ القيمة: ممتدة ؛
التنسيق: tfloatformat ؛ الدقة ،
الأرقام: عدد صحيح. في المخزن المؤقت.
floattotextfmt (المخزن المؤقت: pchar ؛ القيمة: ممتدة ؛
التنسيق: PCHAR): يقوم عدد صحيح بتحويل قيمة النقطة العائمة إلى تمثيل عشري في التنسيق المحدد ، ويتم تخزين نتيجة التحويل في المعلمة العازلة.
inttohex (القيمة: longint ؛ الأرقام: عدد صحيح):
سلسلة. يعطي أرقام المعلمة عدد الأرقام الموجودة في سلسلة نتائج التحويل.
inttoStr (القيمة: longint): سلسلة تحويل الأعداد الصحيحة إلى سلاسل عشرية
strtodate (const s: string): Tdatetime يحول سلسلة إلى قيمة التاريخ.
strtodateTime (const s: string): يجب أن يكون TdateTime String s إلى تنسيق وقت التاريخ. إعدادات وقت الوقت ثوابت صلة. إذا لم يتم تحديد معلومات AM أو PM ، فهذا يعني أنه يتم استخدام النظام على مدار 24 ساعة.
strtofloat (const s: string): تمتد ؛
[+|-] nnn ... [.] nnn ... [<+|-> <e | e> <+|-> nnnn]
strtoint (const s: string): يمكن أن يكون Longint سلسلة رقمية إلى عدد صحيح.
strtointdef (const s: string ؛ افتراضي:
Longint): Longint.
strtotime (const s: string): يحول Tdatetime السلسلة s إلى قيمة tdatetime ، S له hh: mm: ss [am | pm] ، والتنسيق الفعلي يرتبط بالمتغيرات العالمية المتعلقة بوقت النظام.
timetostr (الوقت: tdatetime): سلسلة. يرتبط تنسيق سلسلة نتائج التحويل بإعداد الثوابت المعتمدة على الوقت.
◇ لا يظهر برنامج [Delphi] في Alt+Ctrl+Del
أضف إعلانًا بعد التنفيذ:
Function RecisterviceProcess (dwprocessid ، dwtype: integer): integer ؛
RegiserviceProcess (getCurrentProcessid ، 1) ؛ // إخفاء
RegiserviceProcess (getCurrentProcessid ، 0) ؛ // show
لا يمكنني رؤيته مع Alt+Del+Ctrl
◇ لا يظهر برنامج [Delphi] في شريط المهام
يستخدم Windows
var
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 ('Online!')
Else ShowMessage ("ليس عبر الإنترنت!") ؛
◇ [Delphi] قم بتنفيذ IP لتحويل اسم المجال
وظيفة getDomainName (IP: سلسلة): سلسلة ؛
var
Ph: phostent ؛
البيانات: Twsadata ؛
II: DWORD ؛
يبدأ
WSASTARTUP (101 دولار ، البيانات) ؛
II: = inet_addr (pCHAR (IP)) ؛
ph: = gethostbyaddr (@ii ، sizeof (ii) ، pf_inet) ؛
إذا (ph <> nil) ثم
النتيجة: = ph.h_name
آخر
النتيجة: = '' ؛
wsacleanup
نهاية؛
◇ [Delphi] طريقة التعامل مع "قائمة النقر بزر الماوس الأيمن"
var
ريج: Tregistry ؛
يبدأ
ريج: = 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 ؛
ريج.
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) ؛
var
STR: سلسلة.
السائقين: عدد صحيح.
السائق: شار.
أنا ، درجة الحرارة: عدد صحيح ؛
يبدأ
السائقين: = getLogicalDrives ؛
درجة الحرارة: = (1 والسائقين) ؛
لأني: = 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
أنا: عدد صحيح.
FKEY: عدد صحيح.
يبدأ
النتيجة: = '' ؛
نوع الحالة
0: setPass ؛
يبدأ
عشوائي
fkey: = عشوائي ($ ff) ؛
لأني: = 1 إلى الطول (الطول) تفعل
النتيجة: = النتيجة+chr (ord (s [i]) xor i xor fkey) ؛
النتيجة: = النتيجة + char (fkey) ؛
نهاية؛
1: getPass
يبدأ
fkey: = ord (s [length (s)]) ؛
لأني: = 1 إلى الطول (S) - 1 تفعل
النتيجة: = النتيجة+chr (ord (s [i]) xor i xor fkey) ؛
نهاية؛
نهاية؛
□ ◇ [Delphi] إرسال مفاتيح المحاكاة إلى تطبيقات أخرى
var
H: Thandle ؛
يبدأ
H: = FindWindow (لا شيء ، "عنوان التطبيق") ؛
postmessage (H ، WM_Keydown ، VK_F9 ، 0) ؛ // إرسال مفتاح F9
نهاية؛
□ ◇ [Delphi] Delphi دعم تنسيق بيانات DAO