s3c

Desabilitar Ctrl+Alt+Del no NT acho que vai ser um pouco difícil porque essa combinação é interceptada pelo kernel do NT antes de passar pela fila de mensagens do Windows, ou seja, nem por hook procedure global você consegue interceptar esta combinação de teclas. Lí isso numa nota técnica da Microsoft em que ela explica que fez isso no NT para evitar que um hacker mostrasse uma janela para pegar a senha do sistema. O que você pode fazer é desativar os botões de Lock Computer, Change Password, Log Off, Task Manager e Shut Down da janela exibida pelo Ctrl+Alt+Del. Isto é feito alterando-se alguns valores de chaves do registro do Windows. Obs: SystemParametersInfo c/ Action SPI_SCREENSAVERRUNNING(97), só funciona nos Windows 9x.

Se você só quiser 2 campos, tem que tirar o *.

Bom, acho que é só você fazer: Select Login, Senha From Tabela

Esse dataset que você utiliza é um TQuery? Se sim, deixe a propriedade RequestLive=true. Se não funcionar, experimente tirar a cláusula Where só para fazer um teste.

Se o arquivo é binário, porque você utiliza f:TextFile ?

Acho que você deve ter um dataset ligado aos componentes db, daí quando você altera no dbedit por exemplo, automaticamente reflete no banco de dados. Procure algum evento onBeforePost no seu dataset e atualize seu campo da tabela que armazena o caminho da imagem.

Tanto faz colocar um TLabel no Form e deixar visible=false ou criá-lo em execução. Particularmente prefiro criá-lo em execução por ser um objeto de auxílio. procedure TForm1.FormCreate(Sender:TObject); begin lb := TLabel.Create(Self); lb.AutoSize := true; end; Se não for definida a prorpiedade Parent, automaticamente ele fica invisível. E quando seu Owner é o TForm, ele se encarrega de liberá-lo.

Crie um TLabel (lb). Ative a propriedade AutoSize. procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char); begin lb.Font := TEdit(Sender).Font; lb.Caption := TEdit(Sender).Text + Key; SendMessage(TEdit(Sender).Handle, EM_SETMARGINS, EC_LEFTMARGIN, (TEdit(Sender).Width-lb.Width) div 2); end; Para qualquer edit que queira centralizar, aponte o evento onKeyPress para o evento acima.

você pode utilizar a propriedade Hint para guardar o caminho da imagem. No banco você grava Image.Hint. Para carregá-la você utiliza Image.Picture.LoadFromFile.

Olá Arlon, executa o regedit e você verá o registro do Windows e suas chaves.

FindFirst, FindNext e FindClose.

http://www.guiadodelphi.com.br/ler.php?codigo=802

Dá uma estudada nos componentes TServerSocket e TClientSocket.

uses Registry; var Reg:TRegistry; i:Integer; begin Reg := TRegistry.Create; try Memo1.Clear; Memo2.Clear; Reg.RootKey := HKEY_LOCAL_MACHINE; if Reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Run', false) then begin Reg.GetValueNames(Memo1.Lines); for i := 0 to Memo1.Lines.Count-1 do Case Reg.GetDataType(Memo1.Lines[i]) of rdString, rdExpandString : Memo2.Lines.Add(Reg.ReadString(Memo1.Lines[i])); rdInteger : Memo2.Lines.Add(IntToStr(Reg.ReadInteger(Memo1.Lines[i]))); else Memo2.Lines.Add('?'); end; end; finally Reg.Free; end; end;

Tente .asDateTime

Um cast é um renomeio do tipo que você utiliza. Por exemplo se você quiser fechar um formulário no click de um botão: procedure TForm1.Button1Click(Sender:TObject); begin // você sabe que o Sender é um TButton, assim como seu Owner é um TForm // então você faz dois Casts: TForm(TButton(Sender).Owner).Close; end; É claro que no exemplo acima era só executar Close, mas se você criar um Form em execução e colocar um botão para fechá-lo, então você tem que utilizar os dois Casts; um para o TButton e outro para o TForm.

Ou também você pode utilizar apis para fazer isso.

Bom, um simples exemplo seria: var f:File of byte; p:PChar; m:Smallint; i:Integer; f:Double; begin AssignFile(f, 'Caminho\Arquivo.xxx'); Reset(f); p := AllocMem(14); // aloca 14 bytes de memória BlockRead(f, p^, 14); // lê 14 bytes do arquivo e joga no PChar; // Supondo que você saiba que virá // um Smallint, depois um Integer e depois um //Double, // entaõ você faz: Move(p^, m, 2) // carrega o Smallint Move((p+2)^, i, 4) // carrega o Integer Move((p+6)^, f, 8) // carrega o Double // e assim por diante // mais comandos CloseFile(f); FreeMem(p) // Libera, senão a memória fica alocada end; É ± isso; para se trabalhar com arquivos binários, você tem que saber seu layout. Por exemplo, quando eu exporto blobs do banco de dados, gero arquivos binários, mas eu sei seu layout para depois poder lê-los e importá-los de volta para outro banco.

Bom, quando você define File of Byte e lê pelo BlockRead, na verdade você está lendo n bytes do arquivo e jogando para um buffer que pode ser um PChar. Daí você tem que saber o que está lendo e trabalhar com buffer em memória.

Na verdade a propriedade color é Published em TControl e não aparece nem no PageControl e nem nas TabSheets. O que você pode fazer é derivar uma classe de TControl e utilizar o cast. Ative a propriedade OwnerDraw e utilize o evento onDrawTab também. type tmControl = class(TControl); procedure TForm1.FormCreate(Sender: TObject); var i:Integer; begin PageControl1.OwnerDraw := true; for i := 0 to PageControl1.PageCount-1 do TmControl(PageControl1.Pages[i]).Color := clAqua; TmControl(PageControl1).Color := clBlack; TmControl(PageControl1).Font.Color := clYellow; end; procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var PC:TPageControl; begin PC := TPageControl(Control); PC.Canvas.TextOut(Rect.left+5,Rect.top+3,PC.Pages[tabindex].Caption); end;

Defina var f:file of Byte; Depois utilize AssignFile, Reset, FileSize, BlockRead e CloseFile.

Se for o Outlook Express, pelo ShellExecute acho que você não vai conseguir.

Tenta fazer um for de 1 até Length(Edit.Text)

Acho que é porque ela faz parte de uma classe e na implementation você não está declarando a classe antes do nome da procedure.

procedure WndProc(var Msg:TMessage); override; private Posicao:TPoint; procedure TForm1.WndProc(var Msg:TMessage); begin inherited; Case Msg.Msg of WM_LBUTTONDOWN : Posicao := Mouse.CursorPos; WM_LBUTTONUP : Posicao.X := 0; WM_MOUSEMOVE : if Posicao.X > 0 then begin Left := Left + Mouse.CursorPos.X - Posicao.X; Top := Top + Mouse.CursorPos.Y - Posicao.Y; Posicao := Mouse.CursorPos; end; end; end;