Die grundlegenden Entwicklungsfähigkeiten von Delphi von Vorfahren

◇ [Delphi] Netzwerk Nachbardateien kopieren

verwendet Shellapi;

CopyFile (pChar ('newfile.txt'), pchar ('// computerername/Direction/targer.txt'), false);

◇ [Delphi] erzeugt den Maus -Drag -Effekt

Implementiert über Mousemove Event, Dragover Event und EndDRAG -Event, wie z. B. Etikett auf Panel:

var xpanel, ypanel, xlabel, ylabel: Ganzzahl;

Panel's MousEmove -Ereignis: xpanel: = x; ypanel: = y;

Das Dragover -Ereignis des Panel: xpanel: = x; ypanel: = y;

Label's MousEmove -Ereignis: xlabel: = x; ylabel: = y;

Das EndDRAG-Ereignis von Label: label.left: = xpanel-xlabel; label.top: = ypanel-ylabel;

◇ [Delphi] Erhalten Sie das Windows -Verzeichnis

verwendet Shellapi;

Var Windir: Array [0..255] von Char;

GetWindir -Verzeichnis (Windir, Größe (Windir));

Oder aus der Registrierung lesen, Ort:

HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion

Systemroot -Schlüssel, Get: C:/Windows

◇ [Delphi] Zeichnen Sie Linien auf Form oder andere Behälter

var x, y: Array [0..50] der Ganzzahl;

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] String List -Nutzung

VAR -Tipps: TStringList;

Tipps: = tstringlist.create;

tips.loadfromFile ('Dateiname.txt');

edit1.text: = tipps [0];

tips.add ('Last Line Addition String');

tipps.insert (1, 'String bei Nr. 2 Zeile');

tips.savetofile ('newfile.txt');

Tipps.Free;

◇ [Delphi] Einfacher Zwischenablagevorgang

Richedit1.Selectall;

Richedit1.CopyToclipboard;

Richedit1.Cuttoclipboard;

edit1.pastefromclipboard;

◇ [Delphi] über Datei- und Verzeichnisoperationen

Chdir ('c:/abcdir');

Mkdir ('DirName'); Verzeichnis erstellen

Rmdir ('DirName');

GetCurrentDir; // Erhalten Sie den aktuellen Verzeichnisnamen, nein '/'

GetDir (0, s); // den Namen des Arbeitsverzeichnisses erhalten s: = 'c:/abcdir';

DeletFile ('abc.txt'); // die Datei löschen

RenameFile ('old.txt', 'new.txt'); // Dateiname Änderung

ExtractFileName (filelistBox1.FileName); // den Dateinamen abrufen

ExtractFileext (FilelistBox1.FileName); // Nehmen Sie das Datei -Suffix

◇ [Delphi] Prozessdateiattribute

attr: = ateGetAttr (filelistBox1.FileName);

if (attr und faraDonly) = faraDonly dann ... // nur readonly

if (attr und fasysfile) = fasysfile dann ... // System

if (attr und faarchive) = faarchive dann ... // Archiv

if (attr und fahidden) = fahidden dann ... // verstecken

◇ [Delphi] Führen Sie externe Programmdateien aus

Winexec // Ausführbare Datei anrufen

wonexec ('command.com /c copy *. * c: /', sw_normal);

wonexec ('starten abc.txt');

Shellexecute oder Shellexecutex // Starten Sie das Dateivereinigungsprogramm

Funktion executeFile (const Dateiname, 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] Erhalten Sie den Prozessnamen des ausgeführten Systems

var hcurrentWindow: hwnd; szText: array [0..254] von char;

Beginnen

hcurrentWindow: = GetWindow (Handle, GW_HWNDFrist);

während hcurrentWindow <> 0 tun

Beginnen

wenn GetWindowText (hcurrnetWindow,@szText, 255)> 0 dann listBox1.Items.add (strpas (@sztext));

hcurrentWindow: = GetWindow (hcurrentWindow, gw_hwndNext);

Ende;

Ende;

◇ [Delphi] Einbettung in die Montage

ASM End;

EAX, ECX, EDX kann nach Belieben geändert werden;

◇ [Delphi] Über die Typ -Konvertierungsfunktion

Floattostr // FloatPoint zur String

FloattoStrf // Floatpoint zu String mit Format

Intohex // Ganzzahl zu hexadezimal

Timetostr

Datetostr

DateTimetoStr

FMTSTR // Ausgabebarstellung im angegebenen Format

formatDatetime ('yyyy-mm-dd, hh-mm-ss', Datum);

◇ [Delphi] Prozess und Funktionen von Strings

Einfügen (OBJ, Ziel, pos); // Das String -Ziel wird an der Position von POS eingefügt. Wenn das Insertionsergebnis größer ist als die maximale Länge des Ziels, werden zusätzliche Zeichen abgeschnitten. Wenn POS außerhalb von 255 liegt, verursacht dies einen laufenden Fehler. Zum Beispiel wird St: = 'Brian', dann einfügen ('OK', ST, 2).

Löschen (ST, POS, Num); // Substrings mit einer Anzahl von Num (integralen) Zeichen aus der POS -Position in der ST -Zeichenfolge ausfallen. Zum Beispiel wird St: = 'Brian', dann wird lösch (ST, 3,2) Brn.

STR (Wert, ST); // Konvertieren Sie den numerischen Wert (integral oder real) in eine Zeichenfolge und setzen Sie ihn in ST. Wenn beispielsweise a = 2,5E4, wird Str (a: 10, st) den Wert von ST '25000'.

Val (ST, Var, Code); // Konvertieren Sie den String -Expression ST in die entsprechende Ganzzahl oder den realen Wert und speichern Sie sie in Var. S muss eine Zeichenfolge sein, die numerische Werte darstellt und den Regeln der numerischen Konstanten entspricht. Während des Konvertierungsprozesses wird der Variablencode auf 0 gesetzt, ansonsten wird er auf die Position des ersten Fehlerzeichens gesetzt. Beispielsweise ist ST: = 25,4e3, x eine reale Variable, dann erstellt Val (ST, X, Code) X -Wert 25400 und Codewert 0.

Copy (St.Pos.num); // gibt ein Substring zurück, das an einer Position in der ST -Zeichenfolge bei POS (integral) beginnt und num (integrale) Zeichen enthält. Wenn POS größer als die Länge der ST -Zeichenfolge ist, wird eine leere Zeichenfolge zurückgegeben. Zum Beispiel st: = 'Brian', dann kopieren Sie (ST, 2,2) zurück.

CONCAT (ST1, ST2, ST3 ..., STN); // Verbinden Sie alle durch die Argumente in der angegebenen Reihenfolge dargestellten Zeichenfolgen und senden Sie den angeschlossenen Wert zurück. Wenn das Ergebnis Länge 255 ist, wird ein Lauffehler erzeugt. Zum Beispiel st1: = 'Brian', ST2: = '', ST3: = 'Wilfred', dann concat (ST1, ST2, ST3) gibt 'Brian Wilfred' zurück.

Länge (ST); // gibt die Länge des String -Ausdrucks St. Zum Beispiel st: = 'Brian', dann beträgt der Länge (ST) -Returnwert 5.

POS (OBJ, Target); // gibt die Position zurück, in der die String -OBJ zuerst im Ziel -String -Ziel angezeigt wird. Zum Beispiel beträgt das Ziel: = 'Brian Wilfred', der Rückgabewert von POS ('Wil', Target) 7 und der Rückgabewert von POS ('Hurbet', Ziel) 0.

◇ [Delphi] zur Verarbeitung der Registrierung

Verwendet Registrierung;

var reg: Tregistry;

reg: = tregistry.create;

Reg.rootkey: = 'HKEY_CURRENT_USER';

Reg.openkey ('Bedienfeld/Desktop', False);

Reg.Writestring ('Titel Wallpaper', '0');

Reg.Writestring ('Wallpaper', Filelistbox1.FileName);

Reg.Closereg;

Reg.Free;

◇ [Delphi] über Tastaturkonstante Namen

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)-$ 7 Mrd. (123)

AZ: $ 41 (65)-$ 5A (90)

0-9: $ 30 (48)-$ 39 (57)

◇ [Delphi] vorläufige Urteilsvermögen Programm Muttersprache

DOS -Tipps für Delphi Software: Dieses Programm muss unter Win32 ausgeführt werden.

DOS -Tipps für VC ++ Software: Dieses Programm kann nicht im DOS -Modus ausgeführt werden.

◇ [Delphi] Operation Cookies

Antwort.cookies ("Name") .Domain: = 'http: //www.086net.com';

mit response.cookies.add do

Beginnen

Name: = 'Benutzername';

Wert: = 'Benutzername';

Ende

◇ [Delphi] Hinzufügen zur Dokumentmenüverbindung

verwendet Shellapi, Shlobj;

ShaddtoreCentdocs (Shard_Path, PCHAR (Filepath)); // Verbindung hinzufügen

Shaddtorecentdocs (Shard_Path, Nil); // Clear

◇ [Ehekategorie] Backup Intelligent ABC Input -Methode Dictionary

Windows/System/user.rem

Windows/System/tmmr.rem

◇ [Delphi] Richter Maustaste

Wenn getaSyncKeyState (vk_lbutton) <> 0 dann ... // Linksschlüssel

Wenn getaSyncKeyState (vk_mbutton) <> 0 dann ... // Medium -Schlüssel

Wenn getaSyncKeyState (vk_rbutton) <> 0 dann ... // mit der rechten Maustaste klicken

◇ [Delphi] Stellen Sie die maximale Anzeige des Formulars fest

Onformcreate -Event

self.width: = screen.width;

self.height: = screen.height;

◇ [Delphi] Die Schaltfläche akzeptiert Nachrichten

Handhabung in der OnCreate -Veranstaltung: application.onMessage: = myonMessage;

procedure tform1.myonMessage (var msg: tmsg; var handle: boolean);

Beginnen

Wenn msg.message = 256 dann ... // jeder Schlüssel

Wenn msg.message = 112 dann ... // f1

Wenn msg.message = 113 dann ... // f2

Ende;

◇ [verheiratete Kategorie] Shared Ordner ausblenden

Teilen von Effekten: zugänglich, aber nicht sichtbar (im Ressourcenmanagement, Netzwerknachbarn)

Nehmen Sie den Aktiennamen: Richtung $

Besuchen Sie: // Computer/Richtung/

◇ [Java -Skript] Häufige Auswirkungen von Java -Skript -Webseiten

Die Webseiten sind regelmäßig für 60 Sekunden geschlossen

<script Language = "Java script"> <!-

setTimeout ('window.close ();', 60000)

-> </script>

Das Fenster schließen

<a href = "/" onclick = "javaScript: window.close (); return false;"> schließen </a>

Zeitgesteuerte URL

<meta http-äquiv = "aktualisieren" content = "40; url = http: //www.086net.com">

Setzen Sie als Startseite

<a onclick = "this.style.behavior = 'url (#default#homepage)'; this.sethomepage ('http://086net.com');

Setzen Sie ein Lesezeichen auf diese Seite

<a href = "javaScript: window.external.addfavorite ('http://086net.com', '[Weiming Pier]')"> Diese Site speichern </a>

Treten Sie dem Kanal bei

<a href = "JavaScript: window.external.addchannel ('http://086net.com')"> BY BEI DIESEN </a> beitreten </a>

◇ [Delphi] generieren zufällig Textfarbe

randomisieren; // Samen randomisieren

memo1.font.Color: = rgb (random (255), random (255), random (255));

◇ [Delphi] DELPHI5 Upgrade -Patch -Seriennummer Aktualisieren

1000003185

90x25fx0

◇ [Delphi] Illegale Zeichenfilterung von Dateinamen

für i: = 1 bis Länge (s) tun

Wenn s [i] in ['/', '/', ':', '*', '?', '<', '>', '|'] Dann

◇ Definition und Beschreibung der Konvertierungsfunktion [Delphi]

DateTimetofiledate (DateTime: TDATETIME): Longint;

DateTimetoStr (DateTime: TDATETIME): String; Die Rücklaufzeichenfolge wird zurückgegeben.

datetimetoString (var result String;

Const Format: String;

DateTime: TDATETIME);

DateToToStr (Datum: tdatetime) Verwenden Sie die von ShortdateFormat Global Variable definierte Formatzeichenfolge, um den Datumsparameter in die entsprechende Zeichenfolge umzuwandeln

floattodecimal (var Ergebnis: tfloatrec; Wert:

erweitert; Präzision, Dezimalstellen:

Ganzzahl);

Floattostr (Wert: Erweitert): String konvertiert den Gleitpunktwert in ein String-Format.

Floattotext (Puffer: pchar; Wert: erweitert;

Format: tfloatFormat; Präzision,

Ziffern: Ganzzahl): Ganzzahl; im Puffer.

floattotextfmt (Puffer: pchar; Wert: erweitert;

Format: PCHR): Integer konvertiert den Gleitpunktwert in eine Dezimalzahlung im angegebenen Format, und das Konvertierungsergebnis wird im Pufferparameter gespeichert.

inttohex (Wert: longint; Ziffern: Ganzzahl):

String; Die Parameterstellen geben die Anzahl der in der Konvertierungsergebniszeichenfolge enthaltenen Ziffern an.

INTTOSTR (Wert: Longint): String verwandelt Ganzzahlen in Dezimalzeichen

Strtodate (const S: String): TDATETIME konvertiert eine Zeichenfolge in einen Datumswert.

Strtodatetime (const s: String): TDATETIME Umwandle die Zeichenfolge S in ein Datumszeitformat. Einstellungen für Systemzeitzeitkonstanten im Zusammenhang mit dem System. Wenn keine AM- oder PM-Informationen angegeben sind, bedeutet dies, dass das 24-Stunden-System verwendet wird.

STRTOFLOAT (const s: String): Erweitert;

[+|-] nnn… [.] nnn… [<+|-> <e | e> <+|-> nnnn]

STRTOINT (const s: String): Longint konvertiert eine numerische Zeichenfolge in eine Ganzzahl.

strtointdef (const s: String; Standard:

Longint): Longint;

Strtotime (const s: String): TDATETime konvertiert die Zeichenfolge S in einen TDATETIME -Wert, s hat das Format HH: MM: SS [AM | PM], und das tatsächliche Format hängt mit den globalen Variablen zusammen, die sich auf die Zeit des Systems beziehen.

TimetoStr (Zeit: TDATETIME): String; Das Format der Konvertierungsergebniszeichenfolge hängt mit der Einstellung der zeitabhängigen Konstanten des Systems zusammen.

◇ [Delphi] Programm erscheint nicht in Alt+Strg+del

Fügen Sie nach der Implementierung eine Erklärung hinzu:

Funktion RegisterServiceProcess (DWProcessid, DWTYPE: Integer): Integer;

RegisterServiceProcess (GetCurrentProcessid, 1); // Hide

RegisterServiceProcess (getCurrentProcessid, 0); // Show

Ich kann es nicht mit Alt+del+Strg sehen

◇ [Delphi] Programm erscheint nicht in der Taskleiste

verwendet Windows

var

ExtendedStyle: Ganzzahl;

Beginnen

Application.initialize;

// =================================================== ===================

ExtendedStyle: = GetWindowlong (application.Handle, gwl_exStyle);

Setwindowlong (application.handle, gwl_exStyle, extendedstyle oder ws_ex_toolwindow

Und nicht ws_ex_appwindow);

// =================================================== ====================

Application.createForm (tform1, Form1);

Anwendung.Run;

Ende.

◇ [Delphi] So bestimmen Sie, ob ein Wählernetzwerk ein- oder ausgeschaltet ist

Wenn GetSystemMetrics (sm_network) und $ 01 = $ 01, dann dann

ShowMessage ('Online!')

sonst ShowMessage ('nicht online!');

◇ [Delphi] Implementieren Sie IP -to -Domänenname -Konvertierung

Funktion getDomAinName (IP: String): String;

var

PH: Phostent;

Daten: twsadata;

II: DWORD;

Beginnen

WsAstartup ($ 101, Daten);

II: = inet_addr (pchar (ip));

PH: = GethostbyAddr (@II, sizeof (ii), Pf_inet);

if (ph <> nil) dann

Ergebnis: = Ph.H_NAME

anders

Ergebnis: = '';

WSACLEANUP;

Ende;

◇ [Delphi] Methode zum Umgang mit "Rechtsklickmenü mit der rechten Maustaste"

var

Reg: Tregistry;

Beginnen

reg: = tregistry.create;

Reg.Rootkey: = hkey_classes_root;

Reg.openkey ('*/Shell/Check/Befehl', true);

Reg.Writestring ('', '' ' + Application.Exename +' "%1" ');

Reg.Closekey;

Reg.openkey ('*/Shell/Diary', False);

Reg.Writestring ('', 'Action (& c)');

Reg.Closekey;

Reg.Free;

ShowMessage ('Done!');

Ende;

◇ [Delphi] Senden Sie den virtuellen Schlüsselwert Strg v

Prozedur sendPaste;

Beginnen

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);

Ende;

◇ [Delphi] Der Laufwerk des aktuellen optischen Laufwerks

Prozedur getCdrom (var cd: char);

var

STR: String;

Treiber: Ganzzahl;

Fahrer: Char;

Ich, Temp: Ganzzahl;

Beginnen

Treiber: = getLogicalDrives;

Temp: = (1 und Treiber);

für i: = 0 bis 26 tun

Beginnen

Wenn temp = 1 dann

Beginnen

Treiber: = char (i+Integer ('a'));

STR: = Treiber+':';

Wenn getDrivetype (pChar (str)) = Drive_cdrom dann

Beginnen

CD: = Treiber;

Ausfahrt;

Ende;

Ende;

Treiber: = (Fahrer SHR 1);

Temp: = (1 und Treiber);

Ende;

Ende;

◇ [Delphi] Zeichenverschlüsselung und Entschlüsselung

Funktion Cryptstr (const s: String; Typ: DWORD): String;

var

I: Ganzzahl;

Fkey: Ganzzahl;

Beginnen

Ergebnis: = '';

Falltyp

0: setPass;

Beginnen

randomisieren;

fkey: = random ($ ff);

für i: = 1 bis Länge (s) tun

Ergebnis: = Ergebnis+chr (ord (s [i]) xor i xor fkey);

Ergebnis: = Ergebnis + char (fkey);

Ende;

1: Getpass

Beginnen

FKEY: = ord (s [Länge (s)]);

für i: = 1 bis Länge (s) - 1 tun

Ergebnis: = Ergebnis+chr (ord (s [i]) xor i xor fkey);

Ende;

Ende;

□ ◇ [Delphi] Sippenschlüssel an andere Anwendungen senden

var

H: Thandle;

Beginnen

H: = findWindow (nil, 'Anwendungstitel');

Postmessage (H, Wm_keydown, VK_F9, 0); // F9 -Taste senden

Ende;

□ ◇ [Delphi] Delphi unterstützte das DAO -Datenformat