Las habilidades básicas de desarrollo de Delphi de los antepasados

◇ [Delphi] Network Copia de Copia de vecinos

usa shellapi;

copyfile (pchar ('newFile.txt'), pchar ('// computername/direction/targer.txt'), falso);

◇ [Delphi] genera efecto de arrastre del mouse

Implementado a través del evento MouseMove, el evento Dragover y el evento EndDrag, como la etiqueta en el panel:

var xpanel, ypanel, xlabel, ylabel: integer;

Evento de MouseMove del panel: xpanel: = x; ypanel: = y;

Evento de dragover del panel: xpanel: = x; ypanel: = y;

Evento MouseMove de la etiqueta: xlabel: = x; ylabel: = y;

Evento EndDrag de Label: Label.left: = xpanel-xlabel; etiqueta.top: = ypanel-ilabel;

◇ [Delphi] Obtenga el directorio de Windows

usa shellapi;

var windir: array [0..255] de char;

Directorio GetWindir (Windir, SizeOf (Windir));

O leer desde el registro, ubicación:

HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/CurrentVersion

Key Systemroot, obtener: C:/Windows

◇ [Delphi] dibuja líneas en forma u otros contenedores

var x, y: matriz [0..50] de entero;

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

Uso de la lista de cadenas ◇ [Delphi]

Consejos var: tStringList;

consejos: = tStringList.create;

tips.loadFromFile ('FileName.txt');

edit1.text: = consejos [0];

tips.add ('String de suma de la última línea');

tips.insert (1, 'insertar cadena en no 2 línea');

tips.savetofile ('newfile.txt');

consejos.

◇ [Delphi] Operación de portapapeles simple

RichEdit1.selectall;

RichEdit1.CopyToclipboard;

RichEdit1.CutToclipboard;

edit1.pasteFromClipboard;

◇ [Delphi] sobre operaciones de archivo y directorio

Chdir ('c:/abcdir');

Mkdir ('dirname'); crear directorio

Rmdir ('dirname');

GetCurrentDir; // Obtenga el nombre actual del directorio, no '/'

GetDir (0, s); // Obtenga el nombre del directorio de trabajo s: = 'c:/abcdir';

Deletfile ('abc.txt'); // eliminar el archivo

RenameFile ('Old.txt', 'New.txt'); // Cambio de nombre de archivo

ExtractFileName (filelistbox1.fileName); // Obtenga el nombre del archivo

ExtractFileExt (filelistbox1.fileName); // Tome el sufijo de archivo

◇ ◇ [Delphi] Atributos del archivo de proceso

attr: = filegetAttr (fileListBox1.FileName);

if (attr y fareadonly) = fareadonly entonces ... // solo lectura solo

if (attr y fasysfile) = fasysfile entonces ... // sistema

if (attr y faarchive) = faarchive entonces ... // Archivo

if (attr y fahidden) = fahidden entonces ... // esconderse

◇ [Delphi] Ejecutar archivos de programa externos

Winexec // llamando a archivo ejecutable

Winexec ('Command.com /C Copy *. * C: /', SW_Normal);

Winexec ('Iniciar abc.txt');

ShellexCute o ShellexCuteEx // Inicie el programa de asociación de archivos

function ejecutefile (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] obtenga el nombre del proceso del sistema que se ejecuta

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

Comenzar

hcurrentwindow: = getwindow (mango, gw_hwndfrist);

mientras que hcurrentwindow <> 0 do

Comenzar

if getWindowText (hcurrnetwindow,@sztext, 255)> 0 y luego listbox1.items.add (strpas (@szText));

hcurrentwindow: = getwindow (hcurrentwindow, gw_hwndnext);

fin;

fin;

◇ [Delphi] incrustación en el ensamblaje

ASM FIN;

EAX, ECX, EDX pueden modificarse a voluntad;

◇ [Delphi] sobre la función de conversión de tipo

FloatTostr // Floatpoint to String

FloatToStrf // Floatpoint para caducar con formato

Inttohex // entero a hexadecimal

Horario

DataToStr

DatetImetostr

Fmtstr // cadena de salida en el formato especificado

formatDateTime ('aaa yyy-mm-dd, hh-mm-ss', fecha);

◇ ◇ [Delphi] Proceso y funciones de cuerdas

Insertar (obj, objetivo, pos); // El objetivo de cadena se inserta en la posición de pos. Si el resultado de la inserción es mayor que la longitud máxima del objetivo, se cortarán caracteres adicionales. Si POS está fuera de 255, causará un error de ejecución. Por ejemplo, st: = 'brian', luego inserte ('ok', st, 2) hará que St se convierta en 'brokiano'.

Eliminar (ST, POS, NUM); // abandone sustraciones con una serie de caracteres NUM (integral) desde la posición POS en la cadena ST. Por ejemplo, st: = 'brian', luego eliminar (st, 3,2) se convertirá en BRN.

Str (valor, st); // convertir el valor numérico (integral o real) en una cadena y ponerlo en st. Por ejemplo, cuando A = 2.5E4, STR (A: 10, ST) hará que el valor de ST sea '25000'.

Val (st, var, código); // Convertir la expresión de cadena ST al entero o valor real correspondiente y almacenarlo en var. ST debe ser una cadena que represente valores numéricos y cumplir con las reglas de constantes numéricas. Durante el proceso de conversión, si no se detecta ningún error, el código variable se establece en 0, de lo contrario se establece en la posición del primer carácter de error. Por ejemplo, ST: = 25.4e3, x es una variable real, entonces Val (ST, X, Código) hará X valor 25400 y el valor del código 0.

Copiar (St.Pos.num); // Devuelve una subcadena que comienza en una posición en la cadena ST en POS (integral) y contiene caracteres NUM (integral). Si POS es mayor que la longitud de la cadena ST, se devolverá una cadena vacía. Por ejemplo, st: = 'brian', luego copia (st, 2,2) devuelve 'ri'.

Concat (ST1, ST2, ST3 ..., STN); // Conecte todas las cadenas representadas por los argumentos en el orden dado y devuelva el valor conectado. Si el resultado es longitud 255, se generará un error de ejecución. Por ejemplo, ST1: = 'Brian', ST2: = '', ST3: = 'Wilfred', luego Concat (ST1, ST2, ST3) Devuelve 'Brian Wilfred'.

Longitud (st); // Devuelve la longitud de la expresión de cadena st. Por ejemplo, St: = 'Brian', entonces el valor de retorno de longitud (ST) es 5.

POS (OBJ, Target); // Devuelve la posición donde la cadena OBJ aparece primero en el objetivo de cadena de destino. Por ejemplo, el objetivo: = 'Brian Wilfred', entonces el valor de retorno de POS ('WIL', Target) es 7, y el valor de retorno de POS ('HURBET', Target) es 0.

◇ [Delphi] sobre el procesamiento del registro

usa registro;

VAR Reg: Tregisny;

reg: = tregumistry.create;

reg.rootkey: = 'hkey_current_user';

reg.openkey ('panel de control/escritorio', falso);

Reg.WriteString ('Title Wallpaper', '0');

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

Reg.Closereg;

Reg. Desde;

◇ [Delphi] sobre los nombres constantes del teclado

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] Programa de juicio preliminar Idioma nativo

Consejos de DOS para el software Delphi: este programa debe ejecutarse bajo Win32.

Consejos de DOS para el software VC ++: este programa no se puede ejecutar en modo DOS.

◇ ◇ [Delphi] Operation Cookies

Response.cookies ("nombre") .domain: = 'http: //www.086net.com';

con respuesta.cookies.add do

Comenzar

nombre: = 'nombre de usuario';

valor: = 'nombre de usuario';

fin

◇ [Delphi] Agregar a la conexión del menú del documento

usa shellapi, shlobj;

shaddtorecentDocs (shard_path, pchar (filepath)); // Agregar conexión

shaddtorecentdocs (shard_path, nil); // claro

◇ Diccionario de método de entrada de ABC de respaldo [Categoría casada]

Windows/System/User.rem

Windows/System/TMMR.Rem

◇ [Delphi] Juez Botón del mouse

Si getAsynCkeyState (VK_LBUTTON) <> 0 entonces ... // LE GLAZ

if getAsynCkeyState (VK_MBUTTON) <> 0 entonces ... // Clave media

Si getAsynCkeyState (VK_RBUTTON) <> 0 entonces ... // Haga clic con el botón derecho

◇ [Delphi] Establezca la visualización máxima del formulario

Evento OnFormCreate

self.width: = screen.width;

self.Height: = screen.Height;

El botón ◇ [Delphi] acepta mensajes

Manejo en el evento OnCreate: Application.onmessage: = MyonMessage;

Procedimiento tForm1.MyonMessage (var msg: tmsg; var handle: boolean);

Comenzar

Si msg.message = 256 entonces ... // cualquier clave

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

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

fin;

◇ [Categoría casada] Ocultar carpetas compartidas

Efecto compartido: accesible, pero no visible (en la gestión de recursos, vecinos de la red)

Tome el nombre de la acción: Dirección $

Visite: // Computer/Direction/

◇ [Java Script] Efectos comunes de las páginas web de Script Java

Las páginas web están cerradas regularmente durante 60 segundos

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

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

-> </script>

Cerrar la ventana

<a href = "/" onClick = "javaScript: window.close (); return false;"> cerrar </a>

URL cronometrada

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

Establecer como página de inicio

<a onClick = "this.style.behavior = 'url (#predeterminado#homepage)'; this.sethomepage ('http://086net.com');" href = "#"> establecido como página de inicio </a>

Marque este sitio

<a href = "javascript: window.external.addfavorite ('http://086net.com', '[Weiming Pier]')"> Guarde este sitio </a>

Unirse al canal

<a href = "javascript: window.external.addchannel ('http://086net.com')"> Únase al canal </a>

◇ [Delphi] Generar aleatoriamente el color de texto

aleatorizar; // aleatorizar semillas

Memo1.Font.Color: = RGB (aleatorio (255), aleatorio (255), aleatorio (255));

◇ [Delphi] Delphi5 Actualización de actualización Patch Número de serie

1000003185

90x25fx0

◇ [Delphi] Filtrado de caracteres ilegales de nombres de archivos

para i: = 1 a longitud (s) hacer

Si s [i] in ['/', '/', ':', '*', '?', '<', '>', '|'] entonces

◇ Definición y descripción de la función de conversión [delphi]

DatetImetOfiledate (DateTime: TDATETIME): LongInt;

DetetImetOsTR (DateTime: TDATETIME): String; Se devuelve la cadena de retorno.

dateTimeToString (cadena de resultados var;

formato const: cadena;

DateTime: TDATETIME);

dataToStr (fecha: tDateTime) Use la cadena de formato definida por ShortDateFormat Global Variable para convertir el parámetro de fecha en la cadena correspondiente

FloattodeCimal (resultado var: tfloatREC; valor:

extendido; precisión, decimales:

entero);

FloatToStr (valor: extendido): la cadena convierte el valor de punto flotante en un formato de cadena.

Floattotext (búfer: pchar; valor: extendido;

formato: tfloatformat; precisión,

Digits: Integer): Integer; En el búfer.

FloattotExtfmt (búfer: pchar; valor: extendido;

Formato: PCHAR): Integer convierte el valor de punto flotante en una representación decimal en el formato dado, y el resultado de la conversión se almacena en el parámetro del búfer.

inttoHex (valor: longInt; dígitos: entero):

Cadena; convierte el valor numérico dado en una cadena hexadecimal. Los dígitos de parámetros proporcionan el número de dígitos contenidos en la cadena de resultados de conversión.

intToStr (valor: longint): cadena convertir enteros en cadenas decimales

Strtodate (const s: string): TDATETime convierte una cadena en un valor de fecha debe contener una cadena con una fecha de formato legal.

strtodateTime (const s: string): tdatetime convierte las cadenas s en un formato de fecha de fecha. Configuración de constantes de tiempo del sistema Relacionado. Si no se especifica información de AM o PM, significa que se utiliza el sistema de 24 horas.

strtofloat (const s: cadena): extendido;

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

StrToint (const S: String): Longint convierte una cadena numérica en un entero.

strTointdef (const s: string; predeterminado:

Longint): Longint;

StrTotime (const S: String): TDATETime convierte las cadenas S a un valor TDATETime, S tiene el formato HH: MM: SS [AM | PM], y el formato real está relacionado con las variables globales relacionadas con el tiempo del sistema.

TIMETOSTR (TIEMPO: TDATETIME): Cadena; El formato de la cadena de resultados de conversión está relacionado con la configuración de las constantes dependientes del tiempo del sistema.

El programa ◇ [Delphi] no aparece en Alt+Ctrl+del

Agregue una declaración después de la implementación:

function RegisterServiceProcess (dwprocessid, dwtype: integer): integer;

RegisterServiceProcess (GetCurrentProcessid, 1); // Ocultar

RegisterServiceProcess (GetCurrentProcessid, 0); // show

No puedo verlo con Alt+del+Ctrl

El programa ◇ [Delphi] no aparece en la barra de tareas

Usos Windows

varilla

Extendedstyle: Integer;

Comenzar

Aplicación.initialize;

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

ExtendedStyle: = getWinDowlong (Application.Handle, GWL_EXSTYLE);

Setwindowlong (Application.Handle, GWL_EXSTYLE, ExtendedStyle o WS_EX_ToolWindow

Y no ws_ex_appwindow);

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

Application.CreateForm (TForm1, Form1);

Aplicación.run;

fin.

◇ [Delphi] cómo determinar si la red de acceso telefónico está encendido o desactivado

Si GetSystemMetrics (SM_NETWORK) y $ 01 = $ 01 entonces

showMessage ('' en línea! ')

else ShowMessage ('¡No en línea!');

◇ [Delphi] Implementar la conversión de IP a los nombres de dominio

function getDomainName (ip: string): string;

varilla

ph: fostent;

Datos: twsadata;

II: DWORD;

Comenzar

WSASTARTUP ($ 101, datos);

ii: = inet_addr (pchar (ip));

ph: = gethostByAddr (@ii, sizeof (ii), pf_inet);

if (ph <> nil) entonces

resultado: = Ph.h_name

demás

resultado: = '';

Wsacleanup;

fin;

◇ Método [Delphi] para manejar el "menú de clic derecho"

varilla

REG: Tregistry;

Comenzar

reg: = tregumistry.create;

reg.rootkey: = hkey_classes_root;

reg.openkey ('*/shell/check/command', true);

reg.writeString ('', '"' + Application.exename + '" "%1" ");

Reg.CloseKey;

reg.openkey ('*/shell/diario', falso);

reg.writeString ('', 'Action (& c)');

Reg.CloseKey;

Reg. Desde;

showMessage ('¡Hecho!');

fin;

◇ [Delphi] Enviar valor de clave virtual Ctrl V

procedimiento sendpaste;

Comenzar

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 carta de unidad de la unidad óptica actual

procedimiento getCdrom (var cd: char);

varilla

str: cadena;

Conductores: entero;

Conductor: char;

i, temper: entero;

Comenzar

Conductores: = GetLogicalDrives;

temp: = (1 y controladores);

para i: = 0 a 26 hacer

Comenzar

Si temp = 1 entonces

Comenzar

controlador: = char (i+entero ('a'));

str: = controlador+':';

if getDriveType (pchar (str)) = drive_cdrom entonces

Comenzar

CD: = controlador;

salida;

fin;

fin;

Conductores: = (controladores SHR 1);

temp: = (1 y controladores);

fin;

fin;

◇ ◇ ◇ [Delphi] Cifrado y descifrado de caracteres

function cryptStr (const s: string; type: dword): string;

varilla

I: entero;

fkey: entero;

Comenzar

resultado: = '';

tipo de caso de

0: setpass;

Comenzar

aleatorizar;

fkey: = aleatorio ($ ff);

para i: = 1 a longitud (s) hacer

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

resultado: = resultado + char (fkey);

fin;

1: GetPass

Comenzar

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

para i: = 1 a longitud (s) - 1

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

fin;

fin;

□ ◇ [Delphi] Enviar claves de simulación a otras aplicaciones

varilla

H: Thandle;

Comenzar

h: = findwindow (nil, 'título de aplicación');

PostMessage (H, WM_Keydown, VK_F9, 0); // Enviar la tecla F9

fin;

□ ◇ [Delphi] Delphi admitió el formato de datos DAO