Agora e muito mais facil acessar o blog: http://www.delphisource.com.br/ Para desligar ou reniciar o windows e simples apenas coloque o seguinte codigo:Reniciar:ExitWindowsEx(EWX_REBOOT, 0);Desligar:ExitWindowsEx(EWX_SHUTDOWN, 0); A partir de hoje irei comecar uma serie de tutoriais utilizando banco de dados. Tabelas criadas a partir do DataBase Desktop, em paradox 7.Criando tabelasPrimeiro abra o aplicativo Database Desktop "Iniciar > Todos os programas > Borland Delphi 7 ".Imagem 1.0Uma janela igual a imagem acima abrira. Agora va em "File > New > Table". Abrira a seguinte janela:Imagem 1.1Apenas clique em "OK", pois nosso banco de dados sera em Paradox 7. A seguinte janela abrira:Imagem 1.2Agora criaremos os campos do cadastro. Vamos supor que e um sistema para uma livraria e vamos controlar o estoque de livros. Entao teremos os campos "codigo", "Nome do livro", "Autor", "Editora", "Quantidade". * Codigo * Nome_do_Livro * Autor * Editora * QuantidadeApos criar os campos, salve a tabela "Salve As...". Voce pode salvar em "C:\Tutorial\" com o nome de "livros". Assim fica mais facil de continuar acompanhando o tutorial.Agora vamos para o Delphi.Crie uma nova aplicacao e salve-a. Coloco apenas um TButton e crie outro Form "File > New > Form". No segundo form cria uma interface parecida com a da imagem:Legenda: 1 - Estes 2 componentes estao na palheta "Data Controls", sao eles "DBNavigator" e "DBGrid". 2 - Fica na palheta "Data Access", o nome e "Data Source". 3 - O componente "Table" fica na palheta "BDE". 4 - 5 TEdit. 5 - TBitBtn fica na palheta additional. * Deixe os nomes originais. *Na proxima aula continuando o artigo... aguarde... Para pegar o nome:ExtractFileName(Application.ExeName);Para pegar o caminho:ExtractFilePath(Application.ExeName);Para pegar a Ext:ExtractFileExt(Application.ExeName);Utilizando na pratica.Coloque:- 1 TButton- 6 Label- 1 TOpenDialogOrganize os componentes parecido com a imagem a baixo. E mantenha os nomes originais.Agora vamos a programacao no evento OnClick do Button1 cloque:if OpenDialog1.Execute thenbegin Label4.Caption:= ExtractFilePath(OpenDialog1.FileName); Label5.Caption:= ExtractFileName(OpenDialog1.FileName); Label6.Caption:= ExtractFileExt(OpenDialog1.FileName);end;Pronto agora execute o a aplicacao (F9) e veja o resltado.Saiba mais sobre as funcoes:http://www.delphibasics.co.uk/RTL.asp?Name=ExtractFilePath Mover arquivos com o delphi e bem simples, basta voce usar a funcao copyFile().Como utilizar:copyFile( 'LOCAL DO ARQUIVO', 'ONDE', CONDICAO BOOLEANA );Exemplo:copyFile( Pchar( ' C:\arquivo.exe '), PChar( 'D:\aqueleArquivo.exe' ), true );FALSE se o arquivo ja existir entao retorna falso.TRUE se o arquivo existir entao substitui o arquivo e retorna verdadeiro.Funcao para uso:function copiarArquivo(origem, destino: String; subs: Boolean): Boolean;begin result:= copyFile( Pchar(origem), Pchar(destino), subs ) ;end; Para buscar itens em uma ListBox e bem facil baixe a source e confira.Download: http://rotavirtual.com.br/sourcedelphi/FormBusca.rarSource:procedure TForm1.buscaKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);var i,j: integer; word,word2: String;begin if busca.Text <> '' then begin lista1.Clear; //limpa a lista word:= ''; for j:=1 to length(busca.Text) do begin word:= word + busca.Text[j]; end; for i:=0 to lista.Items.Count-1 do begin word2:= ''; for j:=1 to length(busca.Text) do begin word2:= word2 + lista.Items.Strings[i][j]; end; if word = word2 then begin lista1.Items.Add(lista.Items.Strings[i]); end; end; end else begin lista1.Items:= lista.Items; end;end;Legenda:Busca: TEdit;Lista1: TListBox;Lista: TListBox; Para fazer o TEdit aceitar apenas letras ou apenas numeros coloque o seguinte codigo:Aceitar apenas numeros:if not (Key in['0'..'9',Chr(8)]) thenbeginKey := #0;end;Aceitar apenas letras:if (Key in['0'..'9',Chr(8)]) and (Key #13) and (Key #8) thenbegin Key := #0;end;Coloque o