As habilidades básicas de desenvolvimento de Delphi dos ancestrais

◇ [Delphi] Arquivos de cópia de rede de rede

usa Shellapi;

copyfile (pchar ('newfile.txt'), pchar ('// computername/direção/targer.txt'), false);

◇ [Delphi] gera efeito de arrasto do mouse

Implementado através do evento MouseMove, Evento de Dragover e Enddrag, como Rótulo no Painel:

var xpanel, ypanel, xlabel, ylabel: número inteiro;

Evento do mousemove do painel: xpanel: = x; ypanel: = y;

Evento de dragover do painel: xpanel: = x; ypanel: = y;

Evento do MouseMove da etiqueta: xlabel: = x; ylabel: = y;

Enddrag do rótulo Evento: Label.left: = xpanel-xlabel; LABEL.TOP: = YPanel-YLABEL;

◇ [Delphi] Obtenha o diretório do Windows

usa Shellapi;

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

diretório getwindir (windir, sizeof (windir));

Ou leia o registro, localização:

Hkey_local_machine/software/Microsoft/Windows/CurrentVersion

Systemroot Key, Get: C:/Windows

◇ [Delphi] Desenha linhas na forma ou em outros contêineres

var x, y: matriz [0..50] de 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] String List Uso

dicas var: tStringList;

Dicas: = tStringList.create;

tips.loadfromfile ('filename.txt');

edit1.text: = dicas [0];

tips.add ('string de adição de última linha');

tips.Insert (1, 'Inserir string em sem 2 linhas');

tips.savetofile ('newfile.txt');

dicas.Free;

◇ [Delphi] Operação simples da área de transferência

RichEdit1.Selectall;

RichEDit1.CopyToclipboard;

RichEDit1.CutToclipboard;

Edit1.PasteFromClipboard;

◇ [Delphi] sobre operações de arquivo e diretório

Chdir ('c:/abcdir');

Mkdir ('Dirname'); crie diretório

Rmdir ('Dirname');

GetCurrentDir; // Obtenha o nome do diretório atual, não '/'

Getdir (0, s); // Obtenha o nome do diretório de trabalho s: = 'c:/abcdir';

DeLetfile ('abc.txt'); // exclua o arquivo

Renamefile ('Old.txt', 'new.txt'); // alteração do nome do arquivo

Extractfilename (filelistbox1.filename); // Obtenha o nome do arquivo

ExtractFileExt (FileListBox1.FileName); // Pegue o sufixo do arquivo

◇ [Delphi] Atributos do arquivo de processo

Att: = FILEGETATTR (FILELISTBOX1.FILENAME);

if (attr e fareadonly) = fareadonly então ... // apenas readonly

if (attr e fasysfile) = fasysfile então ... // sistema

if (attr e faarchive) = faarchive então ... // arquivamento

if (attr e fahidden) = fahidden então ... // ocultar

◇ [Delphi] Execute arquivos de programas externos

Winexec // chamando o arquivo executável

winexec ('command.com /c cópia *. * c: /', sw_normal);

winexec ('start abc.txt');

Shellexecute ou ShellexEcteex // Iniciar o programa de associação de arquivos

função 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] Obtenha o nome do processo do sistema em execução

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

Começar

hcurrentWindow: = getWindow (alça, gw_hwndfrist);

enquanto hcurrentwindow <> 0 do

Começar

Se GetWindowText (HcurrNetWindow,@sztext, 255)> 0 então listbox1.items.add (strpas (@sztext));

HcurrentWindow: = getWindow (hcurrentwindow, gw_hwndnext);

fim;

fim;

◇ [Delphi] Incorporando na montagem

ASM final;

EAX, ECX, EDX podem ser modificados à vontade;

◇ [Delphi] sobre a função de conversão do tipo

FLOATTOSTR // FloatPoint para string

Floattostrf // FloatPoint para cordas com formato

Inttohex // inteiro para hexadecimal

TimetoStr

DATETOSTR

DATETIMETOSTR

String de saída fmtstr // no formato especificado

FormatDateTime ('AA YYYY-MM-DD, HH-MM-SS', DATA);

◇ [Delphi] Processo e funções de strings

Inserir (obj, destino, pos); // o alvo da string é inserido na posição de pos. Se o resultado da inserção for maior que o comprimento máximo do alvo, os caracteres extras serão cortados. Se o POS estiver fora de 255, causará um erro em execução. Por exemplo, ST: = 'Brian', depois inserir ('OK', ST, 2) fará com que o ST se torne 'Brokian'.

Exclua (st, pos, num); // soltar substrings com vários caracteres NUM (integrais) da posição POS na sequência ST. Por exemplo, ST: = 'Brian', então excluir (ST, 3,2) se tornará brn.

Str (valor, st); // converte o valor numérico (integral ou real) em uma string e coloque -a em st. Por exemplo, quando A = 2.5E4, STR (A: 10, ST) fará com que o valor de ST seja '25000'.

Val (st, var, code); // converte a expressão de string sT para o número inteiro correspondente ou o valor real e armazenasse -o no var. ST deve ser uma string representando valores numéricos e cumprir as regras das constantes numéricas. Durante o processo de conversão, se nenhum erro for detectado, o código da variável será definido como 0, caso contrário, ele será definido para a posição do primeiro caractere de erro. Por exemplo, ST: = 25.4E3, X é uma variável real, então Val (ST, X, Code) fará o valor X 25400 e o valor do código 0.

Cópia (St.Pos.num); // retorna uma substring que começa em uma posição na ST String no POS (integral) e contém caracteres NUM (integral). Se o POS for maior que o comprimento da sequência ST, uma string vazia será retornada. Por exemplo, ST: = 'Brian', então copie (ST, 2,2) retorna 'Ri'.

Concat (ST1, ST2, ST3 ..., STN); // Conecte todas as seqüências representadas pelos argumentos na ordem fornecida e retorne o valor conectado. Se o resultado for o comprimento 255, será gerado um erro em execução. Por exemplo, St1: = 'Brian', ST2: = '', ST3: = 'Wilfred', então concat (ST1, ST2, ST3) retorna 'Brian Wilfred'.

Comprimento (st); // retorna o comprimento da expressão da string st. Por exemplo, ST: = 'Brian', então o valor do retorno do comprimento (ST) é 5.

POS (OBJ, Target); // Retorna a posição em que a string obj aparece pela primeira vez no destino da sequência de destino. Por exemplo, Target: = 'Brian Wilfred', então o valor de retorno de POS ('Wil', Target) é 7 e o valor de retorno de POS ('Hurbet', Target) é 0.

◇ [Delphi] sobre o processamento do registro

usa o registro;

Var Reg: Tregistry;

Reg: = Tregistry.create;

reg.rootkey: = 'hkey_current_user';

reg.openkey ('Painel de controle/desktop', false);

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

Reg.WritEstring ('Wallpaper', FileListBox1.FileName);

Reg.CloSereg;

Reg.Free;

◇ [Delphi] sobre nomes constantes do 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)-US $ 7b (123)

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

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

◇ [Delphi] Programa de julgamento preliminar Língua nativa

Dicas do DOS para o software Delphi: Este programa deve ser executado no Win32.

Dicas do DOS para o software VC ++: Este programa não pode ser executado no modo DOS.

◇ [Delphi] Cookies de operação

Response.Cookies ("Nome") .Domain: = 'http: //www.086net.com';

com Response.cookies.add do

Começar

Nome: = 'Nome de usuário';

valor: = 'nome de usuário';

fim

◇ [Delphi] Adicionar à conexão com o menu do documento

usa Shellapi, Shlobj;

shaddtorrecentDocs (shard_path, pchar (filepath)); // adicione conexão

shaddtorrecentDocs (shard_path, nil); // limpo

◇ [categoria casada] Backup Intelligent ABC Input Dictionary

Windows/System/User.rem

Windows/System/Tmmr.rem

◇ [Delphi] Juiz Button Mouse

Se GetAsynckeyState (vk_lbutton) <> 0 então ... // chave de esquerda

Se GetasynckeyState (vk_mbutton) <> 0 então ... // chave média

Se GetasynckeyState (vk_rbutton) <> 0 então ... // clique com o botão direito

◇ [Delphi] Defina a exibição máxima do formulário

Evento OnFormCreate

self.width: = screen.width;

self.Height: = screen.Height;

◇ [Delphi] Button aceita mensagens

Manuseio no evento OnCreate: Application.onMessage: = MyonMessage;

procedimento tform1.myonMessage (var msg: tmsg; alça var: boolean);

Começar

Se msg.message = 256 então ... // qualquer chave

Se msg.Message = 112 então ... // F1

Se msg.message = 113 então ... // f2

fim;

◇ [categoria casada] Hide pastas compartilhadas

Efeito de compartilhamento: acessível, mas não visível (em gerenciamento de recursos, vizinhos de rede)

Pegue o nome de compartilhamento: direção $

Visite: // computador/direção/

◇ [Java Script] Efeitos comuns das páginas da web de script Java

As páginas da web são fechadas regularmente por 60 segundos

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

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

-> </script>

Fechar a janela

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

URL cronometrado

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

Definido como página inicial

<a onclick = "this.style.behavior = 'url (#padrão#homepage)'; this.SethomePage ('http://086net.com');" href = "#"> definido como página inicial </a>

Marque este site como favorito

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

Junte -se ao canal

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

◇ [Delphi] gera aleatoriamente a cor do texto

randomizar; // sementes randomizadas

Memo1.Font.Color: = RGB (aleatório (255), aleatório (255), aleatório (255));

◇ [Delphi] Delphi5 Atualize o número de série do patch de atualização

1000003185

90x25fx0

◇ [Delphi] Filtragem ilegal de caracteres de nomes de arquivos

para i: = 1 a (s) comprimento (s)

se s [i] em ['/', '/', ':', '*', '?', '<', '>', '|'] então então

◇ Definição e descrição da função de conversão [Delphi]

DATETIMETOFILEDATE (DATETIME: TDATETIME): Longint;

DATETIMETOSTR (DataTime: TDATETEME): String; Retornar a string é retornada.

DATETIMETOSTRING (string de resultado var;

formato const: string;

DateTime: TDATETIME);

DateToStr (DATA: TDATETIME) Use a sequência de formato definida pela variável global ShortDateFormat para converter o parâmetro de data para a sequência correspondente

Floattodecimal (Var Resultado: Tfloatrec; Valor:

estendido; precisão, decimais:

número inteiro);

FLOATTOSTR (Valor: estendido): String converte o valor do ponto flutuante em um formato de string.

FLOTATTOTEXT (Buffer: PChar; Valor: Extended;

formato: tfloatformat; precisão,

Digits: Inteiro): Inteiro; no buffer.

FLOTATTOTEXTFMT (Buffer: PChar; Valor: Extended;

Formato: PChar): O número inteiro converte o valor do ponto flutuante em uma representação decimal no formato fornecido, e o resultado da conversão é armazenado no parâmetro buffer.

inttohex (valor: longnt; dígitos: inteiro):

String; Os dígitos dos parâmetros fornecem o número de dígitos contidos na sequência de resultados de conversão.

Inttostr (Valor: Longint): String converte inteiros em strings decimais

STRTODATE (const S: String): TDATETime converte uma string em um valor de data.

strtodateTime (const s: string): TDATETime converte as strings s em um formato de data de data. Configurações de constantes de tempo de tempo do sistema relacionadas. Se nenhuma informação AM ou PM for especificada, significa que o sistema de 24 horas é usado.

strtofloat (const s: string): estendido;

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

STRTONT (const S: String): Longint converte uma sequência numérica em um número inteiro.

strTointDef (const s: string; padrão:

Longint): Longint;

strTotime (const s: string): tdateTime converte as strings s em um valor tdateTime, s possui o formato hh: mm: ss [am | pm], e o formato real está relacionado às variáveis ​​globais relacionadas ao tempo do sistema.

timetoStr (tempo: tdateTime): string; O formato da sequência de resultados de conversão está relacionado à configuração das constantes dependentes do tempo do sistema.

◇ [Delphi] O programa não aparece em alt+ctrl+del

Adicione uma declaração após a implementação:

Função RegisterServiceProcess (DWProcessID, DWTYPE: Inteiro): Inteiro;

RegisterServiceProcess (getCurrentProcessId, 1); // Ocultar

RegisterServiceProcess (getCurrentProcessId, 0); // Mostrar

Não consigo ver com alt+del+ctrl

◇ [Delphi] O programa não aparece na barra de tarefas

usa janelas

var

ExtendedStyle: Inteiro;

Começar

Application.initialize;

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

ExtendedStyle: = getWindowlong (Application.Handle, GWL_Exstyle);

SetWindowlong (Application.Handle, GWL_Exstyle, ExtendedStyle ou WS_EX_TOOLWindow

E não ws_ex_appwindow);

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

Application.CreatEform (TForm1, Form1);

Application.run;

fim.

◇ [Delphi] Como determinar se a rede de discagem está ligada ou desativada

Se getSystemMetrics (sm_network) e $ 01 = $ 01 Então

ShowMessage ('Online!')

else showmessage ('não online!');

◇ [Delphi] Implemente IP para conversão de nome de domínio

função getDomainName (ip: string): string;

var

Ph: Fostent;

Dados: TWSadata;

II: DWORD;

Começar

WSASTARTUP (US $ 101, dados);

II: = INT_ADDR (PCHAR (IP));

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

if (ph <> nil) então

Resultado: = ph.h_name

outro

resultado: = '';

WSACLEANUP;

fim;

◇ [Delphi] Método para lidar com o "Menu do Clique com o botão direito do mouse"

var

Reg: Tregistry;

Começar

Reg: = Tregistry.create;

reg.rootkey: = hkey_classes_root;

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

Reg.WritEstring ('', '"' + Application.exename + '" "%1"');

Reg.CloseKey;

reg.openkey ('*/shell/diário', falso);

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

Reg.CloseKey;

Reg.Free;

showMessage ('feito!');

fim;

◇ [Delphi] Envie o valor virtual do valor Ctrl V

Procedimento SendPaste;

Começar

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

fim;

◇ [Delphi] A carta de unidade de unidade óptica atual

Procedimento getCDROM (var CD: char);

var

str: string;

Drivers: Inteiro;

Motorista: Char;

Eu, Temp: Inteiro;

Começar

drivers: = getLogicalDrives;

Temp: = (1 e drivers);

para i: = 0 a 26 faça

Começar

Se temp = 1 então

Começar

driver: = char (i+inteiro ('a'));

str: = driver+':';

Se getDriveType (PChar (str)) = drive_cdrom, então

Começar

CD: = driver;

saída;

fim;

fim;

drivers: = (drivers shr 1);

Temp: = (1 e drivers);

fim;

fim;

◇ [Delphi] Criptografia e descriptografia

função CryptStr (const s: string; tipo: dword): string;

var

I: Inteiro;

FKEY: Inteiro;

Começar

resultado: = '';

tipo de caso de

0: setPass;

Começar

randomizar;

fkey: = aleatório ($ ff);

para i: = 1 a (s) comprimento (s)

Resultado: = Resultado+Chr (Ord (S [i]) XOR I XOR FKEY);

resultado: = resultado + char (fkey);

fim;

1: getPass

Começar

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

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

Resultado: = Resultado+Chr (Ord (S [i]) XOR I XOR FKEY);

fim;

fim;

□ ◇ [Delphi] Envie as chaves de simulação para outros aplicativos

var

H: Thandle;

Começar

h: = findWindow (nil, 'título do aplicativo');

Postmessage (h, wm_keydown, vk_f9, 0); // envia a tecla F9

fim;

□ ◇ [Delphi] Delphi suportou o formato de dados DAO