◇ [Delphi] jaringan Menyalin file tetangga
menggunakan shellapi;
copyFile (pchar ('newfile.txt'), pchar ('// computername/direction/targer.txt'), false);
◇ [Delphi] menghasilkan efek drag mouse
Diimplementasikan melalui acara MouseMove, acara Dragover, dan acara endddrag, seperti label di panel:
var xpanel, ypanel, xlabel, ylabel: integer;
Acara Mousemove Panel: XPanel: = x; ypanel: = y;
Acara Dragover Panel: xpanel: = x; ypanel: = y;
Acara MouseMove Label: XLabel: = x; ylabel: = y;
Acara Enddrag Label: Label.Left: = xpanel-xLabel; label.top: = ypanel-ylabel;
◇ [delphi] Dapatkan direktori windows
menggunakan shellapi;
var Windir: array [0..255] dari char;
GetWindir Directory (Windir, Sizeof (Windir));
Atau baca dari registri, lokasi:
Hkey_local_machine/software/microsoft/windows/currentVersion
Kunci Systemroot, Dapatkan: C:/Windows
◇ [delphi] menggambar garis pada bentuk atau wadah lainnya
var x, y: array [0..50] dari 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] Penggunaan Daftar String
Var Tips: TStringList;
Tips: = TStringList.Create;
tips.loadFromFile ('filename.txt');
edit1.text: = Tips [0];
tips.add ('string tambahan baris terakhir');
tips.insert (1, 'masukkan string di no 2 line');
tips.savetofile ('newfile.txt');
tips. bebas;
◇ [Delphi] Operasi Clipboard Sederhana
RichEdit1.Selectall;
Richedit1.copytoclipboard;
Richedit1.cuttoclipboard;
edit1.pastefromclipboard;
◇ [Delphi] Tentang Operasi File dan Direktori
Chdir ('c:/abcdir');
Mkdir ('dirname'); buat direktori
RMDIR ('Dirname');
GetCurrentDir; // Dapatkan nama direktori saat ini, tidak '/'
Getdir (0, s); // Dapatkan nama direktori kerja s: = 'c:/abcdir';
DeletFile ('abc.txt'); // hapus file
RenameFile ('old.txt', 'new.txt'); // Perubahan nama file
ExtractFileName (FileListBox1.FileName); // Dapatkan Nama File
ExtractFileExt (FileListBox1.FileName); // Ambil Suffix File
◇ [Delphi] Proses Atribut File
attr: = FileGetAttr (FileListBox1.FileName);
if (attr dan fareadonly) = fareadonly maka ... // readonly saja
if (attr dan fasysfile) = fasysfile lalu ... // sistem
if (attr dan faarchive) = faarchive lalu ... // arsip
if (attr dan fahidden) = fahidden lalu ... // sembunyikan
◇ [delphi] menjalankan file program eksternal
Winexec // Memanggil file yang dapat dieksekusi
winexec ('command.com /c copy *. * c: /', sw_normal);
winexec ('start abc.txt');
Shellexecute atau Shellexecuteex // Mulai Program Asosiasi File
fungsi executeFile (const fileName, 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] Dapatkan nama proses sistem berjalan
var hcurrentwindow: hwnd; sztext: array [0..254] dari char;
Mulai
hcurrentWindow: = getWindow (handle, gw_hwndfrist);
Sedangkan hcurrentWindow <> 0 do
Mulai
jika getWindowText (hCurrnetWindow,@sztext, 255)> 0 lalu listbox1.items.add (strpas (@sztext));
hCurrentWindow: = getWindow (hCurrentWindow, gw_hwndnext);
akhir;
akhir;
◇ [delphi] menanamkan pada perakitan
ASM akhir;
EAX, ECX, EDX dapat dimodifikasi sesuka hati;
◇ [Delphi] Tentang Fungsi Konversi Jenis
FloatToStr // FloatPoint ke String
Floattostrf // floatpoint ke string dengan format
Inttohex // Integer ke Hexadecimal
Timetostr
Datetostr
DatetimetoStr
Fmtstr // output string dalam format yang ditentukan
formatDateTime ('yyyy-mm-dd, hh-mm-ss', tanggal);
◇ Proses dan fungsi string [Delphi]
Masukkan (obj, target, pos); // target string dimasukkan pada posisi pos. Jika hasil penyisipan lebih besar dari panjang maksimum target, karakter tambahan akan terputus. Jika POS berada di luar 255, itu akan menyebabkan kesalahan berjalan. Misalnya, ST: = 'Brian', lalu masukkan ('OK', ST, 2) akan membuat St menjadi 'brokian'.
Hapus (ST, POS, NUM); // Jatuhkan substring dengan sejumlah karakter NUM (integral) dari posisi POS dalam string ST. Misalnya, ST: = 'Brian', lalu hapus (ST, 3,2) akan menjadi Brn.
Str (nilai, st); // Konversi nilai numerik (integral atau nyata) menjadi string dan masukkan ke dalam st. Misalnya, ketika a = 2.5e4, str (a: 10, st) akan membuat nilai st menjadi '25000'.
Val (st, var, kode); // konversi string ekspresi st ke integer atau nilai nyata yang sesuai dan menyimpannya di var. ST harus berupa string yang mewakili nilai numerik dan mematuhi aturan konstanta numerik. Selama proses konversi, jika tidak ada kesalahan yang terdeteksi, kode variabel diatur ke 0, jika tidak diatur ke posisi karakter kesalahan pertama. Misalnya, st: = 25.4e3, x adalah variabel nyata, lalu val (st, x, kode) akan membuat nilai x 25400 dan nilai kode 0.
Salin (st.pos.num); // Mengembalikan substring yang dimulai pada posisi dalam string ST di POS (integral) dan berisi karakter NUM (integral). Jika POS lebih besar dari panjang string ST, string kosong akan dikembalikan. Misalnya, st: = 'Brian', lalu salin (st, 2,2) mengembalikan 'ri'.
Concat (ST1, ST2, ST3 ..., STN); // Sambungkan semua string yang diwakili oleh argumen dalam urutan yang diberikan dan mengembalikan nilai yang terhubung. Jika hasilnya panjang 255, kesalahan berjalan akan dihasilkan. Misalnya, ST1: = 'Brian', ST2: = '', ST3: = 'Wilfred', lalu concat (ST1, ST2, ST3) mengembalikan 'Brian Wilfred'.
Panjang (st); // mengembalikan panjang ekspresi string st. Misalnya, ST: = 'Brian', maka nilai pengembalian panjang (ST) adalah 5.
POS (OBJ, Target); // Mengembalikan posisi di mana string OBJ pertama kali muncul di target target target. Misalnya, target: = 'Brian Wilfred', maka nilai pengembalian POS ('Wil', Target) adalah 7, dan nilai pengembalian POS ('Hurbet', Target) adalah 0.
◇ [Delphi] Tentang memproses registri
menggunakan registri;
Var Reg: Tregistry;
Reg: = Tregistry.Create;
Reg.rootkey: = 'hkey_current_user';
reg.openkey ('panel kontrol/desktop', false);
Reg.WriteString ('judul wallpaper', '0');
Reg.WriteString ('Wallpaper', FilelistBox1.FileName);
Reg.Closereg;
Reg.Free;
◇ [Delphi] Tentang Keyboard Names Konstan
Vk_back/vk_tab/vk_return/vk_shift/vk_control/vk_menu/vk_paause/vk_escape
/VK_SPACE/VK_LEFT/VK_RIGHT/VK_UP/VK_DOWN
F1-F12: $ 70 (112)-$ 7 miliar (123)
AZ: $ 41 (65)-$ 5A (90)
0-9: $ 30 (48)-$ 39 (57)
◇ [Delphi] Program Penilaian Awal Bahasa Asli
Kiat DOS untuk Perangkat Lunak Delphi: Program ini harus dijalankan di bawah Win32.
Kiat DOS untuk perangkat lunak VC ++: Program ini tidak dapat dijalankan dalam mode DOS.
◇ [Delphi] Cookie Operasi
response.cookies ("name") .domain: = 'http: //www.086net.com';
dengan response.cookies.add do
Mulai
Nama: = 'nama pengguna';
nilai: = 'nama pengguna';
akhir
◇ [delphi] Tambahkan ke koneksi menu dokumen
menggunakan shellapi, shlobj;
shaddToRecentDocs (shard_path, pchar (filepath)); // tambahkan koneksi
shaddtoreCentDocs (shard_path, nil); // hapus
◇ [kategori menikah] Cadangan Kamus Metode Input ABC Cerdas
windows/system/user.rem
Windows/System/tmmr.rem
◇ [Delphi] Tombol Hakim Tikus
Jika getAsynckeyState (vk_lbutton) <> 0 lalu ... // Kunci kiri
Jika getAsynckeyState (vk_mbutton) <> 0 lalu ... // Kunci sedang
jika getAsynckeystate (vk_rbutton) <> 0 lalu ... // klik kanan
◇ [delphi] Atur tampilan maksimum formulir
Acara OnFormCreate
self.width: = screen.width;
self.height: = screen.height;
◇ Tombol [Delphi] menerima pesan
Penanganan dalam acara OnCreate: Application.onMessage: = MyonMessage;
Prosedur tform1.myonMessage (var msg: tmsg; var handle: boolean);
Mulai
Jika msg.message = 256 lalu ... // Kunci apapun
Jika msg.message = 112 lalu ... // f1
Jika msg.message = 113 lalu ... // f2
akhir;
◇ [kategori menikah] Sembunyikan folder bersama
Efek Berbagi: dapat diakses, tetapi tidak terlihat (dalam manajemen sumber daya, tetangga jaringan)
Ambil nama saham: arah $
Kunjungi: // komputer/arah/
◇ [Java Script] Efek umum dari halaman web Java Script
Halaman web ditutup secara teratur selama 60 detik
<bahasa skrip = "java skrip"> <!-
setTimeout ('window.close ();', 60000)
-> </script>
Tutup jendela
<a href = "/" onClick = "javascript: window.close (); return false;"> tutup </a>
URL waktunya
<meta http-equiv = "refresh" konten = "40; url = http: //www.086net.com">
Ditetapkan sebagai Halaman Beranda
<a onClick = "this.style.behavior = 'url (#default#homePage)'; this.sethomepage ('http://086net.com');" href = "#"> Set sebagai beranda </a>
Bookmark situs ini
<a href = "javascript: window.external.addfavorite ('http://086net.com', '[weiming pier]')"> simpan situs ini </a>
Bergabunglah dengan saluran
<a href = "javascript: window.external.addchannel ('http://086net.com')"> Bergabunglah dengan saluran </a>
◇ [delphi] secara acak menghasilkan warna teks
mengacak; // mengacak biji
memo1.font.color: = rgb (acak (255), acak (255), acak (255));
◇ [Delphi] Delphi5 Pembaruan Nomor Seri Patch Patch
1000003185
90x25fx0
◇ [Delphi] Penyaringan karakter ilegal dari nama file
untuk i: = 1 hingga panjang lakukan
jika s [i] di ['/', '/', ':', '*', '?', '<', '>', '|'] lalu
◇ Definisi dan deskripsi fungsi konversi [delphi]
DateTimetoFileTate (DateTime: TDateTime): LongInt;
DATETIMETOSTR (DATETIME: TDATETIME): String; Return String dikembalikan.
DatetimetoString (string hasil var;
Format Const: String;
datetime: tDateTime);
DatetoStr (Tanggal: TDateTime) Gunakan string format yang ditentukan oleh variabel global ShortDateFormat untuk mengonversi parameter tanggal ke string yang sesuai
floattodecimal (hasil var: tfloatrec; nilai:
diperpanjang; presisi, desimal:
Integer);
FloattoStr (Nilai: Extended): String mengonversi nilai titik mengambang ke format string.
floattotext (buffer: pchar; nilai: diperpanjang;
Format: tfloatformat; presisi,
Digit: Integer): Integer; di buffer.
floattotextFmt (buffer: pchar; nilai: diperpanjang;
Format: PCHAR): Integer mengubah nilai titik mengambang menjadi representasi desimal dalam format yang diberikan, dan hasil konversi disimpan dalam parameter buffer.
InttoHex (Nilai: Longint; Digit: Integer):
string; Digit parameter memberikan jumlah digit yang terkandung dalam string hasil konversi.
inttoStr (nilai: longint): string konversi bilangan bulat menjadi string desimal
strtodate (const S: string): TDateTime mengonversi string ke nilai tanggal.
strtodateTime (const S: string): tDateTime mengubah string S menjadi format tanggal-waktu. Pengaturan waktu konstanta waktu sistem terkait. Jika tidak ada informasi AM atau PM yang ditentukan, itu berarti bahwa sistem 24 jam digunakan.
strtofloat (const S: string): Extended;
[+|-] nnn… [.] nnn… [<+|-> <e | e> <+|-> nnnn]
Strtoint (Const S: String): Longint mengonversi string numerik menjadi integer.
strtointDef (const S: string; default:
Longint): Longint;
strtoTime (const S: string): tDateTime mengubah string S ke nilai tDateTime, S memiliki format HH: mm: ss [am | pm], dan format aktual terkait dengan variabel global yang terkait dengan waktu sistem.
timeToStr (waktu: tdateTime): string; Format string hasil konversi terkait dengan pengaturan konstanta yang bergantung pada waktu sistem.
Program Program [Delphi] tidak muncul di Alt+Ctrl+del
Tambahkan deklarasi setelah implementasi:
Fungsi RegisterServiceProcess (DWPROCESSID, DWTYPE: Integer): Integer;
RegisterServiceProcess (getCurrentProcessId, 1); // Sembunyikan
RegisterServiceProcess (getCurrentProcessId, 0); // Show
Tidak dapat melihatnya dengan alt+del+ctrl
Program Program [Delphi] tidak muncul di bilah tugas
menggunakan windows
var
ExtendedStyle: Integer;
Mulai
Application.Initialize;
// =================================================== ====================
ExtendedStyle: = getWindowlong (application.handle, gwl_exstyle);
SetWindowlong (application.handle, gwl_exstyle, extendedstyle atau ws_ex_toolwindow
Dan bukan ws_ex_appwindow);
// =================================================== =====================
Application.createForm (tform1, form1);
Application.run;
akhir.
◇ [delphi] Bagaimana menentukan apakah jaringan dial-up hidup atau mati
Jika getSystemmetrics (sm_network) dan $ 01 = $ 01 maka
Showmessage ('Online!')
lain showmessage ('tidak online!');
◇ [Delphi] Menerapkan IP ke Konversi Nama Domain
function getDomainName (ip: string): string;
var
pH: fosten;
Data: twsadata;
II: DWORD;
Mulai
Wsastartup ($ 101, data);
II: = INET_ADDR (PCHAR (IP));
ph: = getHostByAddr (@II, sizeof (II), pf_inet);
if (pH <> nil) lalu
Hasil: = ph.h_name
kalau tidak
Hasil: = '';
WSACLEANUP;
akhir;
◇ [Delphi] Metode untuk menangani "menu klik kanan"
var
Reg: Tregistry;
Mulai
Reg: = Tregistry.Create;
Reg.rootkey: = hkey_classses_root;
Reg.openkey ('*/shell/check/command', true);
Reg.WriteString ('', '"' + Application.exename + '" "%1"');
Reg.Closey;
Reg.openkey ('*/shell/diary', false);
Reg.WriteString ('', 'Action (& c)');
Reg.Closey;
Reg.Free;
Showmessage ('Done!');
akhir;
◇ [Delphi] Kirim Nilai Kunci Virtual Ctrl V
Prosedur Sendpaste;
Mulai
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);
akhir;
◇ [Delphi] Surat drive drive optik saat ini
Prosedur GetCdrom (Var CD: Char);
var
str: string;
Driver: Integer;
Pengemudi: Char;
I, Temp: Integer;
Mulai
driver: = getLogicalDrives;
temp: = (1 dan driver);
untuk i: = 0 hingga 26 lakukan
Mulai
Jika temp = 1 maka
Mulai
driver: = char (i+integer ('a'));
str: = driver+':';
if getDrivetype (pchar (str)) = drive_cdrom lalu
Mulai
CD: = driver;
KELUAR;
akhir;
akhir;
driver: = (driver shr 1);
temp: = (1 dan driver);
akhir;
akhir;
◇ [Delphi] Karakter enkripsi dan dekripsi
fungsi cryptstr (const S: string; type: dword): string;
var
I: Integer;
FKEY: Integer;
Mulai
Hasil: = '';
Jenis Kasus dari
0: setPass;
Mulai
mengacak;
fkey: = acak ($ ff);
untuk i: = 1 hingga panjang lakukan
Hasil: = hasil+chr (ord (s [i]) xor i xor fkey);
Hasil: = hasil + char (fKey);
akhir;
1: GetPass
Mulai
fkey: = ord (s [panjang (s)]);
untuk i: = 1 hingga panjang - 1 lakukan
Hasil: = hasil+chr (ord (s [i]) xor i xor fkey);
akhir;
akhir;
□ ◇ [Delphi] Kirim kunci simulasi ke aplikasi lain
var
H: Thandle;
Mulai
h: = findWindow (nil, 'judul aplikasi');
PostMessage (H, WM_KEYDOWN, VK_F9, 0); // Kirim Kunci F9
akhir;
□ ◇ [Delphi] Delphi Mendukung Format Data DAO