[****]
como faço para transformar e gravar um arquivo em Quick Report.qrp em
formato txt .. para gravar em A:.....
como faço para fazer um cd executavel ... tenho que gravar em um cd um
software , mas o sofware so poderá ser executado no cd ... não sera
permitido que seja instalado na pc .... mande uma ajuda ....
fico na espera ...
grato .... galera
[*****]
Anderson.
Na boa, não me leve a mal...mas aqui ninguem é empregado de ninguem...e
so responde quem quer...se quer, quando quer.
E acredito que perguntas do tipo 'URGENTE' muito pouco são
respondidas...
Boa parte das coisas são 'auto-respondidas' por uma busca nas msgs da
lista ou mesmo no Prof. Google.
A sua primeira pergunta me parece que já foi respondida aqui na
lista...então cabe a voce fazer uma busca ai.
A segunda, sobre o cd... Utilize no seu aplicativo uma função que
retorna os tipo de drives do computador (Fixo, CDRoom, removivel,
rede....etc) e so deixe o aplicativo executar caso estiver em um dos
tipos que voce programar....(lembrando que nada impede de o cara tirar
uma copia do cd);
Abaixo a função que retorna os tipos de drives...
(Retirada do DTDelphi)
OBS...mais mastigado que isso...ta brabo...
Atenc.
Elazar
******************
506 - Obter o tipo de um drive
Inclua na seção uses: Windows, Dialogs
{ - Coloque um edit (Edit1) e um botão no form;
- Altere o OnClick do botão conforme abaixo: }
procedure TForm1.Button1Click(Sender: TObject);
var
S: string;
Tipo: byte;
begin
Tipo := GetDriveType(PChar(Edit1.Text[1] + ':\'));
case Tipo of
0: S := 'Tipo indeterminado';
1: S := 'Drive não existe';
DRIVE_REMOVABLE: S := 'Disco removível';
DRIVE_FIXED: S := 'Disco Fixo';
DRIVE_REMOTE: S := 'Unidade de rede';
DRIVE_CDROM: S := 'CD-ROM';
DRIVE_RAMDISK: S := 'RAM Disk';
else
S := 'Erro';
end;
ShowMessage(S);
end;
{ Para pegar o tipo da unidade atual troque...}
Tipo := GetDriveType(PChar(Edit1.Text[1] + ':\'));
{ por }
Tipo := GetDriveType(nil);
Observações
Para testar digite a letra do drive no Edit1 e clique no botão. A unit
Dialogs foi colocada no uses apenas por causa da procedure ShowMessage.
Para exibir todas as unidades existentes e seus res-pectivos tipos, use
a função tbGetDrives (da pergunta 64) em con-junto com este exemplo.
******************
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale
o discador agora!
http://br.acesso.yahoo.com
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
