Les compétences de développement de base de Delphi des ancêtres

◇ [Delphi] Network voisin Copie Fichiers

utilise shellapi;

copyFile (pChar ('newfile.txt'), pChar ('// ComputerName / Direction / Targer.txt'), false);

◇ [Delphi] génère l'effet de traînée de la souris

Implémenté via l'événement MouseMove, l'événement Dragover et l'événement Enddrag, tels que l'étiquette sur le panneau:

var xpanel, ypanel, xlabel, ylabel: entier;

Événement MouseMove du panneau: xpanel: = x; ypanel: = y;

Événement Dragover du panneau: xpanel: = x; ypanel: = y;

Événement MouseMove de l'étiquette: xlabel: = x; ylabel: = y;

Événement Enddrag de Label: Label.left: = xpanel-xLabel; label.top: = ypanel-ylabel;

◇ [Delphi] Obtenez le répertoire Windows

utilise shellapi;

Var Windir: Array [0..255] de char;

Getwindir Directory (Windir, Sizeof (Windir));

Ou lire dans le registre, emplacement:

HKEY_LOCAL_MACHINE / SOFTWAY / Microsoft / Windows / CurrentVersion

Clé SystemRoot, obtenez: C: / Windows

◇ [Delphi] Tracez des lignes sur la forme ou d'autres conteneurs

var x, y: array [0..50] of Integer;

Canvas.pen.color: = Clraid;

canvas.pen.style:=psdash;

form1.canvas.moveto (trunc (x [i]), trunc (y [i]));

form1.canvas.lineto (trunc (x [j]), trunc (y [j]));

◇ Utilisation de la liste des chaînes [Delphi]

Var Tips: TStringList;

Conseils: = tStringList.Create;

Tips.LoadFromFile ('filename.txt');

edit1.text: = TIPS [0];

TIPS.ADD ('Last Line Addition String');

TIPS.Insert (1, «Insérer la chaîne à la ligne n ° 2»);

TIPS.SAVETOFILE («newFile.txt»);

Conseils gratuits;

◇ [Delphi] Fonctionnement du presse-papiers simple

RichEdit1.Selectall;

RichEdit1.CopyToclipboard;

RichEdit1.Cuttoclipboard;

edit1.pasteFromClipboard;

◇ [Delphi] sur les opérations de fichiers et de répertoires

Chdir ('c: / abcdir');

Mkdir ('dirname'); créer un répertoire

Rmdir («dirname»);

GetCurrentDir; // Obtenez le nom du répertoire actuel, non '/'

GetDir (0, s); // Obtenez le nom du répertoire de travail s: = 'c: / abcdir';

DeletFile ('Abc.txt'); // Supprimer le fichier

RenameFile ('old.txt', 'new.txt'); // Changement de nom de fichier

ExtractFileName (FileListbox1.FileName); // Obtenez le nom du fichier

ExtractFileExt (FileListbox1.FileName); // Prenez le suffixe de fichier

◇ [Delphi] Attributs de fichiers de processus

attr: = fileGetTattr (fileListbox1.filename);

if (att et fareadonly) = fareadonly alors ... // lecture uniquement

if (att et fasysfile) = fasysfile alors ... // système

if (att et faarchive) = faarchive alors ... // archive

if (att et faahidden) = faahidden alors ... // cacher

◇ [Delphi] Exécuter des fichiers de programme externes

WineXec // Appeler le fichier exécutable

wineXec ('Command.com / c copie *. * c: /', sw_normal);

wineXec ('start abc.txt');

Shellexcute ou ShelexeCuteex // Démarrer le programme d'association de fichiers

Fonction ExecuteFile (const filename, params, defaultDir: String; showcmd: entier): thandle;

EXECUTEFILE ('c: /abc/a.txt', 'x.abc', 'c: / abc /', 0);

Executefile ('http: //tingweb.yeah.net' ,'' ,'',0);

EXECUTEFILE ('Mailto: [email protected]', '', '', 0);

◇ [Delphi] Obtenez le nom de processus du système en cours d'exécution

var hcurrentwindow: hwnd; sztext: array [0..254] de char;

Commencer

hcurrentwindow: = getWindow (manche, gw_hwndfrist);

tandis que HcurrentWindow <> 0 fait

Commencer

si getWindowText (hcurrnetwindow, @ sztext, 255)> 0 alors listbox1.items.add (strpas (@sztext));

hcurrentwindow: = getWindow (hcurrentwindow, gw_hwndnext);

fin;

fin;

◇ [Delphi] s'incliner à l'assemblage

Fin ASM;

Eax, Ecx, Edx peuvent être modifiés à Will;

◇ [Delphi] sur la fonction de conversion de type

FloatToStr // FloatPoint en chaîne

FloatToStrf // FloatPoint en chaîne avec format

Intohex // entier à hexadécimal

Timetostr

Datetostr

Datetimetostr

FMTSTR // Sortie de sortie dans le format spécifié

FormatDateTime («Yyyy-mm-dd, hh-mm-ss», date);

◇ processus [Delphi] et fonctions des chaînes

INSERT (OBJ, Target, POS); // La cible de chaîne est insérée à la position de POS. Si le résultat d'insertion est supérieur à la longueur maximale de la cible, les caractères supplémentaires seront coupés. Si POS est en dehors de 255, cela entraînera une erreur de course. Par exemple, st: = 'Brian', puis insérer ('ok', st, 2) fera devenir «Brokian».

Delete (st, pos, num); // abandonne des sous-chaînes avec un certain nombre de caractères Num (intégrale) de la position POS dans la chaîne ST. Par exemple, St: = 'Brian', puis supprime (ST, 3,2) deviendra BRN.

Str (valeur, st); // convertir la valeur numérique (intégrale ou réelle) en une chaîne et la mettre en st. Par exemple, lorsque A = 2.5E4, STR (A: 10, ST) fera que la valeur de ST soit «25000».

Val (st, var, code); // convertir l'expression de chaîne ST en entier ou valeur réelle correspondante et le stocker dans var. ST doit être une chaîne représentant des valeurs numériques et se conformer aux règles des constantes numériques. Pendant le processus de conversion, si aucune erreur n'est détectée, le code variable est défini sur 0, sinon il est défini sur la position du premier caractère d'erreur. Par exemple, ST: = 25.4E3, X est une variable réelle, alors Val (St, X, Code) fera la valeur x 25400 et la valeur du code 0.

Copy (St.pos.num); // renvoie une sous-chaîne qui commence à une position dans la chaîne ST à POS (intégrale) et contient des caractères NUM (intégrale). Si POS est supérieur à la longueur de la chaîne ST, une chaîne vide sera retournée. Par exemple, st: = 'Brian', puis copier (st, 2,2) renvoie 'ri'.

CONCAT (ST1, ST2, ST3 ..., STN); // Connectez toutes les chaînes représentées par les arguments de l'ordre donné et renvoyez la valeur connectée. Si le résultat est la longueur 255, une erreur de course sera générée. Par exemple, ST1: = 'Brian', ST2: = '', ST3: = 'Wilfred', puis Concat (ST1, ST2, ST3) Renvoie 'Brian Wilfred'.

Longueur (st); // renvoie la longueur de l'expression de chaîne st. Par exemple, st: = 'Brian', alors la valeur de retour de longueur (ST) est 5.

Pos (obj, cible); // renvoie la position où la chaîne Obj apparaît d'abord dans la cible cible cible. Par exemple, cible: = 'Brian Wilfred', alors la valeur de retour de pos ('wil', cible) est de 7, et la valeur de retour de POS ('hurbet', cible) est 0.

◇ [Delphi] sur le traitement du registre

utilise le registre;

VAR REG: Tregistry;

Reg: = Tregistry.Create;

reg.rootkey: = 'hkey_current_user';

reg.openKey ('Panneau de commande / Desktop', false);

reg.writeString ('Title Wallpaper', '0');

reg.writeString ('wallpaper', fileListbox1.filename);

reg.closereg;

reg.free;

◇ [Delphi] sur les noms constants du clavier

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] Langue maternelle du programme de jugement préliminaire

Conseils DOS pour le logiciel Delphi: ce programme doit être exécuté sous Win32.

Conseils DOS pour le logiciel VC ++: ce programme ne peut pas être exécuté en mode DOS.

◇ ◇ ◇ ◇ ◇ [Delphi] Cookies d'opération

réponse.cookies ("name") .domain: = 'http: //www.086net.com';

avec réponse.cookies.add faire

Commencer

Nom: = «Nom d'utilisateur»;

valeur: = 'nom d'utilisateur';

fin

◇ [Delphi] Ajouter à la connexion du menu du document

Utilise Shellapi, Shlobj;

shaddtoreCentDocs (shard_path, phar (filepath)); // ajouter une connexion

ShaddToreCentDocs (Shard_Path, Nil); // Clear

◇ [catégorie mariée] Dictionnaire de méthode d'entrée ABC de sauvegarde de sauvegarde

Windows / System / User.rem

Windows / System / tmmr.rem

◇ Bouton [Delphi] Juger la souris

Si getasynckeystate (vk_lbutton) <> 0 alors ... // clé gauche

Si getasynckeystate (vk_mbutton) <> 0 alors ... // clé moyenne

Si getasynckeystate (vk_rbutton) <> 0 alors ... // clic droit

◇ [Delphi] Définit l'affichage maximal du formulaire

Événement sur forme

self.width: = screen.width;

self.height: = screen.height;

Le bouton [Delphi] accepte les messages

Gestion dans l'événement OnCreate: Application.OnMessage: = MyonMessage;

Procédure tform1.myonMessage (var msg: tmsg; manche var: booléen);

Commencer

Si msg.message = 256 alors ... // toute clé

Si msg.message = 112 alors ... // f1

Si msg.message = 113 alors ... // f2

fin;

◇ [Catégorie mariée] Masquer les dossiers partagés

Effet de partage: accessible, mais pas visible (en gestion des ressources, voisins du réseau)

Prenez le nom de l'action: Direction $

Visitez: // Computer / Direction /

◇ [Script Java] Effets communs des pages Web de script Java

Les pages Web sont fermées régulièrement pendant 60 secondes

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

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

-> </ script>

Fermer la fenêtre

<a href = "/" onclick = "javascript: window.close (); return false;"> close </a>

URL chronométrée

<meta http-equiv = "rafhes" content = "40; url = http: //www.086net.com">

Définir la page d'accueil

<a onclick = "this.style.behavior = 'url (# par défaut # homepage)'; this.sethomePage ('http://086net.com');" href = "#"> set en tant que page d'origine </a>

Bookmark ce site

<a href = "javascript: window.external.addfavorite ('http://086net.com', '[weiming Pier]')"> Enregistrer ce site </a>

Rejoindre la chaîne

<a href = "javascript: window.external.addchannel ('http://086net.com')"> Rejoignez la chaîne </a>

◇ [Delphi] Générer au hasard la couleur du texte

randomiser; // randomiser les graines

memo1.font.color: = rgb (aléatoire (255), aléatoire (255), aléatoire (255));

◇ [Delphi] Delphi5 Mise à jour de mise à jour Numéro de série du patch

1000003185

90x25fx0

◇ [Delphi] Filtrage de caractères illégal des noms de fichiers

pour i: = 1 à la longueur (s)

Si s [i] dans ['/', '/', ':', '*', '?', '<', '>', '|'] alors

◇ Définition et description de la fonction de conversion [Delphi]

DateTiMetoFileDate (DateTime: TdateTime): LongInt;

DateTiMetoStr (DateTime: TdateTime): String; La chaîne de retour est retournée.

DateTimeToString (Var Result String;

constat constat: String;

DateTime: tdateTime);

DateToStr (date: tdatetime) Utilisez la chaîne de format définie par la variable globale ShortdateFormat pour convertir le paramètre de date en chaîne correspondante

FloattodeCimal (Var Résultat: tfloatrec; valeur:

étendu; précision, décimales:

entier);

FloatToStr (Valeur: Extended): String convertit la valeur à virgule flottante en un format de chaîne.

Floattotext (tampon: phar; valeur: étendu;

Format: tfloatformat; précision,

chiffres: entier): entier; utilisez le format donné, la précision et la décimale pour convertir la valeur du point flottante en une représentation décimale. dans le tampon.

Floattotextfmt (tampon: phar; valeur: étendu;

Format: PHAR): Integer convertit la valeur de point flottante en une représentation décimale dans le format donné, et le résultat de conversion est stocké dans le paramètre du tampon.

intohex (valeur: longint; chiffres: entier):

String; Les chiffres des paramètres donnent le nombre de chiffres contenus dans la chaîne de résultat de conversion.

InttoStr (valeur: longint): les cordes convertissent les entiers en chaînes décimales

Strtodate (const S: String): TdateTime convertit une chaîne en valeur de date.

StrTodateTime (const S: String): TdateTime convertit la chaîne S en format de date. Paramètres des constantes d'heure du système liées. Si aucune information AM ou PM n'est spécifiée, cela signifie que le système 24 heures est utilisé.

strtofloat (const s: string): étendu;

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

StrToint (const S: String): Longint convertit une chaîne numérique en un entier.

strTointDef (const s: string; par défaut:

longInt): longInt;

StrtoTime (const S: String): TdateTime convertit la chaîne S en valeur tdatetime, S a le format HH: mm: ss [am | pm], et le format réel est lié aux variables globales liées au temps du système.

TIMETOSTR (temps: tdateTime): String; Le format de la chaîne de résultats de conversion est lié au réglage des constantes dépendant du temps du système.

Le programme [Delphi] n'apparaît pas dans Alt + Ctrl + Del

Ajouter une déclaration après la mise en œuvre:

Fonction RegisterserviceProcess (dwprocessId, dwtype: entier): entier;

RegisterServiceProcess (GetCurrentProcessId, 1); // Hide

RegisterServiceProcess (GetCurrentProcessId, 0); // montre

Impossible de le voir avec Alt + del + Ctrl

Le programme [Delphi] n'apparaît pas dans la barre des tâches

Utilise Windows

var

Extensionstyle: entier;

Commencer

Application.Initialize;

// =============================================================. ===================

ExtendedStyle: = GetWindowlong (application.handle, gwl_exstyle);

Setwindowlong (application.handle, gwl_exstyle, extendstyle ou ws_ex_toolwindow

Et non ws_ex_appwindow);

// =============================================================. ====================.

Application.CreateForm (TForm1, Form1);

Application.run;

fin.

◇ [Delphi] Comment déterminer si le réseau de numérotation est activé ou désactivé

Si GetSystemMetrics (SM_NETWORK) et 01 $ = 01 alors

ShowMessage («en ligne!»)

else showMessage («pas en ligne!»);

◇ [Delphi] Implémentez la conversion IP vers le nom de domaine

fonction getDomainName (ip: string): String;

var

PH: Phostent;

Données: Twsadata;

II: DWORD;

Commencer

Wsastartup (101 $, données);

II: = INET_ADDR (PCHA (IP));

Ph: = GethostByAddr (@ ii, sizeof (ii), pf_inet);

if (ph <> nil) alors

Résultat: = ph.h_name

autre

Résultat: = '';

Wsacleanup;

fin;

◇ Méthode [Delphi] pour gérer le "menu de clic droit"

var

Reg: Tregistry;

Commencer

Reg: = 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;

reg.free;

ShowMessage («Done!»);

fin;

◇ [Delphi] Envoi de la valeur de clé virtuelle Ctrl V

Procédure Sendpaste;

Commencer

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

fin;

◇ [Delphi] La lettre de lecteur de lecteur optique actuel

Procédure getCDrom (Var CD: char);

var

str: string;

Conducteurs: entier;

Conducteur: char;

I, temp: entier;

Commencer

Conducteurs: = getLogicalDrives;

Temp: = (1 et pilotes);

pour i: = 0 à 26 faire

Commencer

Si temp = 1 alors

Commencer

pilote: = char (i + entier ('a'));

str: = pilote + ':';

Si getDriveType (pChar (Str)) = Drive_cdrom alors

Commencer

CD: = pilote;

sortie;

fin;

fin;

Conducteurs: = (pilotes SHR 1);

Temp: = (1 et pilotes);

fin;

fin;

◇ [Delphi] Caractères cryptage et décryptage

fonction cryptstr (const s: string; type: dword): string;

var

I: entier;

fkey: entier;

Commencer

Résultat: = '';

type de cas de

0: setPass;

Commencer

randomiser;

fkey: = random ($ ff);

pour i: = 1 à la longueur (s)

Résultat: = résultat + chr (ord (s [i]) xor i xor fkey);

Résultat: = résultat + char (fkey);

fin;

1: getpass

Commencer

fkey: = ord (s [longueur (s)]);

pour i: = 1 de longueur (s) - 1 do

Résultat: = résultat + chr (ord (s [i]) xor i xor fkey);

fin;

fin;

□ ◇ [Delphi] Envoyez des clés de simulation à d'autres applications

var

H: Thandle;

Commencer

h: = findwindow (nil, «title d'application»);

PostMessage (H, WM_KEYDOWN, VK_F9, 0); // Envoyez la touche F9

fin;

□ ◇ [Delphi] Format de données DAO pris en charge Delphi