Bem vindo ao LifeGames Demo
Cadastre-se agora para ter acesso a todos os nossos recursos. Uma vez cadastrado e logado, você será capaz de criar tópicos, postar respostas a tópicos já existentes, a reputação de seus companheiros, começar seu próprio mensageiro privado, atualizações de status post, gerir o seu perfil e muito mais. Esta mensagem será removida assim que tiver logado.
Entrar Cadastre-se


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir para baixo  Mensagem [Página 1 de 1]

Moedas Moedas : 278
Mensagens Mensagens : 1177
Idade Idade : 27
Humor Humor : Forever Alone T.T
Reputação Reputação : 28
Quebra de regras:
[DELPHI] Criando um programa para formatar disket Left_bar_bleue0 / 1000 / 100[DELPHI] Criando um programa para formatar disket Right_bar_bleue

RodrigoNunes

RodrigoNunes

Admin

Admin

Eai galera, acabei de criar esse programa, é muito simples.
1° você cria um .bat com o código abaixo e salve em c:\ com o nome: Formatar.bat
Código:

cls                                 
cd
format a: /q/y
break(10)
exit

2° Agora no delphi coloque em sua Tform um botão. Depois disso dê um clique duplo nele e adicione o código abaixo:
Código:

if messagedlg('Insira um diskette para iniciar formatação!', MTINFORMATION, [MBOK, MBCANCEL] , 0) =    MROK then begin
    winexec('C:formatar.bat', SW_HIDE);
    end;
  finally
    messagedlg('Formatação Concluída!', MTINFORMATION , [MBOK] , 0);
  end; 

Agora pressione F9 e teste a aplicação, qualquer dúvida pergunte aqui ^^

https://www.facebook.com/DarkGamesBrasil Youtube LinkedIn esqueci

Ver o tópico anterior Ver o tópico seguinte Ir para o topo  Mensagem [Página 1 de 1]

Permissões neste sub-fórum
Não podes responder a tópicos