http://www.youtube.com/watch?v=Us-TVg40ExM Bom cara estou trazendo a voces o novo cantor que virou sucesso e revolucionou o sertanejo, icaro silva espero que gostem Nas propriedades do atalho do aplicativo antes do destino coloca isso:runas /savecred /user:administrador C:\Windows\System32\cmd.exe Segue um link com exemplo de como usar a nova RTTI no Delphi, este link explica com exemplo a funcoes da classe:http://edn.embarcadero.com/br/article/41728Em breve vou colocar uma serie de como usar esta RTTI na pratica em OOP (Programacao Orientada a Objeto ) no delphi.ATT: Volnei; Segue um link muito bom com conceitos de POO, na pratica e com exemplo:http://www.luizsistemas.com.br/tag/crud/Creditos: Luiz Carlos Alves Boa Noite pessoal.Para posicionar o cursor no proximo campo pode se usar o seguinte comando:declare a unit Controls, se nao estiver ja declarada.SelectNext(Self.ActiveControl, True, True);Onde:O primeiro parametro e controle ativo.Segundo parametro (Com valor True) informa que a procura e pra frente. Se quiser fazer o contrario e so informar false que ele procura o campo anterior.Terceiro e pra verificar se ele vai obedecer o TabStop do campo. Boa Noite pessoal.Na rotina de programar sempre encontramos campos que precisam ser limpados antes de qualquer outro processo, mas sempre e uma funcao chata de fazer e sempre da um monte de programacao.Abaixo seque uma funcao que achei,nao me lembro o autor da mesma que faz este servicos pra voces.Esta procedure usa informacoes em RunTime com auxilio da unit TypeInfo verificando uma propriedade em comum em todos os componentes que a TAG;Por favor declarar as seguintes units: TypeInfo, StrUtils, WideStrings;procedure LimparCampos(Controle: TWincontrol; const cTag: Integer); //procedure interna ao metodo procedure SetPropStr(Instance: TObject; const PropName:string; const Value: Variant); var P:Pointer; E:String; begin E:=VarToWideStr(GetPropValue(Instance,PropName)); p:=Pointer(strtoint(E)); TStringList(TObject(P)).Text:=Value; end; //fim de procedure Internaconst Propriedade:Array[0..4] of String =('Text','ItemIndex','Checked','Lines','Items');var index,i:Integer; prop:PPropInfo;begin for index:=0 to Controle.ControlCount -1 do begin if Controle.Controls[index].tag = cTag then begin for i := 0 to High( Propriedade) do begin if isPublishedProp(controle.Controls[index],Propriedade[i]) then begin case i of 0:SetPropValue(Controle.Controls[index],Propriedade[0],''); 1:SetPropValue(Controle.Controls[index],Propriedade[1],-1); 2:SetPropValue(Controle.Controls[index],Propriedade[2],false); 3:SetPropStr(Controle.Controls[index],Propriedade[3],''); 4:SetPropStr(Controle.Controls[index],Propriedade[4],''); end; Break; end; end; end; end; end;Como Usar: LimparCampos(Form1, 0); LimparCampos(Panel1, 0); Se tiver um campo que voces nao querem limpar e so informar a TAG com valor diferente a usada na procedure. Boa Tarde .Esta dica abaixo serve pra listar os arquivos de um determinado diretorio, e seu sub diretorios.Eu usei um ListBox pra listar os arquivos, mas fica a criterio de cada um.procedure TForm1.ListarArquivos(Diretorio: string; Sub:Boolean);function TemAtributo(Attr, Val: Integer): Boolean;begin Result := Attr and Val = Val;end;var F: TSearchRec; Ret: Integer; TempNome: string;begin Ret := FindFirst(Diretorio+'\*.*', faAnyFile, F); try while Ret = 0 do begin if TemAtributo(F.Attr, faDirectory) then begin if (F.Name <> '.') and (F.Name <> '..') then if Sub = True then begin TempNome := Diretorio+'\' + F.Name; ListarArquivos(TempNome, True); end; end else begin ListBox1.Items.Add(Diretorio+'\'+F.Name); end; Ret := FindNext(F); end; finally FindClose(F); end;end; Ola pessoal,Segue um dica bem lega e simples para bloquear teclado e mouse. Nesta dica, o CTRL + ALT + DEL nao fica travado.function BlockInput(fbLookIt:Boolean):Integer; stdcall; external 'user32.dll';Para bloquear, chame a funcao da seguinte forma:BlockInput (true)Para desbloquear, chame a funcao da seguinte forma:BlockInput (false);Grande abraco! A funcao CURDATE nao funciona corretamente para a adicao de dias que extrapolam o calendario. Como exemplo,