Re: [delphi-br] Serial HD
var Serial:DWord; DirLen,Flags: DWord; DLabel : Array[0..11] of Char; begin GetVolumeInformation(PChar(PARAMSTR(0)[1]+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0); o serial estará em serial... para ler em hexa, converta usando inttohex(serial, 8); falo! - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 11, 2006 8:54 AM Subject: [delphi-br] Serial HD Qual é a função correspondente da API do windows que retorna o serial do HD? Abraço [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Informação do NOD32 IMON 1.1533 (20060512) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!.
Re: [delphi-br] Serial HD
Amigo, isso não funciona em HDs SATA. Será porque? Abraço - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Friday, May 12, 2006 8:42 AM Subject: Re: [delphi-br] Serial HD var Serial:DWord; DirLen,Flags: DWord; DLabel : Array[0..11] of Char; begin GetVolumeInformation(PChar(PARAMSTR(0)[1]+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0); o serial estará em serial... para ler em hexa, converta usando inttohex(serial, 8); falo! - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 11, 2006 8:54 AM Subject: [delphi-br] Serial HD Qual é a função correspondente da API do windows que retorna o serial do HD? Abraço [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Informação do NOD32 IMON 1.1533 (20060512) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!.
RES: [delphi-br] Serial HD
Serial ATA é outra tecnologia (moderna), outro hardware e outro padrão de barramento e controladora. Muito do que se aplica nos HDs IDE´s atuais, não se aplica no Serial ATA. Pra acessar recursos dele, você terá mesmo que consultar a documentação do produto uma vez que alguma coisa do IDE pode até funcionar beleza no SATA, mas quem lhe garante a precisão? []s Walter Alves Chagas Junior Projeto e desenvolvimento de sistemas Telemont Engenharia de telecomunicações S/A Belo Horizonte - MG - Brasil [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] nome de [EMAIL PROTECTED] Enviada em: sexta-feira, 12 de maio de 2006 10:37 Para: delphi-br@yahoogrupos.com.br Assunto: Re: [delphi-br] Serial HD Amigo, isso não funciona em HDs SATA. Será porque? Abraço - Original Message - From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Friday, May 12, 2006 8:42 AM Subject: Re: [delphi-br] Serial HD var Serial:DWord; DirLen,Flags: DWord; DLabel : Array[0..11] of Char; begin GetVolumeInformation(PChar(PARAMSTR(0)[1]+':\'),dLabel,12,@Serial,DirLen,Fla gs,nil,0); o serial estará em serial... para ler em hexa, converta usando inttohex(serial, 8); falo! - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 11, 2006 8:54 AM Subject: [delphi-br] Serial HD Qual é a função correspondente da API do windows que retorna o serial do HD? Abraço [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. __ Informação do NOD32 IMON 1.1533 (20060512) __ Esta mensagem foi verificada pelo NOD32 sistema antivírus http://www.eset.com.br [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Links do Yahoo! Grupos [As partes desta mensagem que não continham texto foram removidas] -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!.
RES: [delphi-br] Serial HD
Pessoal boa. tarde;
to utilizando a seguinte funcao para executar um aplicativo e esperar
que ele termine
mas to precisando executar alguma coisa antes que o usuario feche o
meesmo...alguem tem alguma ideia?
Ex.
Digamos que eu coloquei para executar o wordpad do windows ('apenas a
titulo de exemplo'). ai quando o usuario clicar no fechar (na verdade)
antes de o wordpad fechar eu utilizo outra funcao 'GetWindowtext' para
pegar o texto do wordpad e ...trabalhar com ele.
Ai preciso saber quando o processo esta sendo finalizado para chamar
meu procedimento...para pegar o texto do richedit do word pad.
function ExecAndWait(const FileName, Params: string; const WindowState:
Word): boolean;
var
SUInfo: TStartupInfo;
ProcInfo: TProcessInformation;
CmdLine: string;
begin
{ Coloca o nome do arquivo entre aspas. Isto é necessário devido aos
espaços contidos em nomes longos }
CmdLine := '' + Filename + '' + Params;
FillChar(SUInfo, SizeOf(SUInfo), #0);
with SUInfo do begin
cb := SizeOf(SUInfo);
dwFlags := STARTF_USESHOWWINDOW;
wShowWindow := WindowState;
end;
Result := CreateProcess(nil, PChar(CmdLine), nil, nil, false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
PChar(ExtractFilePath(Filename)), SUInfo, ProcInfo);
{ Aguarda até ser finalizado }
if Result then begin
{}
WaitForSingleObject(ProcInfo.hProcess, INFINITE);
{ Libera os Handles }
CloseHandle(ProcInfo.hProcess);
CloseHandle(ProcInfo.hThread);
end;
end;
Atenc;
Elazar
___
Yahoo! doce lar. Faça do Yahoo! sua homepage.
http://br.yahoo.com/homepageset.html
--
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]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
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 Termos do Serviço do Yahoo!.
[delphi-br] Serial HD
Qual é a função correspondente da API do windows que retorna o serial do HD? Abraço [As partes desta mensagem que não continham texto foram removidas] -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!.
RE: [delphi-br] Serial HD
Depende, companheiro! O serial do HD que vc quer é o do volume do HD ou o serial de fábrica? Se for o serial de fábrica, nenhuma função da API do Windows te retorna isso. Entre em contato com o Walter Chages que ele tem uma função pra isso, mas só funciona pra HDs SCSI e IDE com o recurso de S.M.A.R.T. da placa mãe habilitado. Sds. From: [EMAIL PROTECTED] Reply-To: delphi-br@yahoogrupos.com.br To: delphi-br@yahoogrupos.com.br Subject: [delphi-br] Serial HD Date: Thu, 11 May 2006 08:17:18 -0300 Qual é a função correspondente da API do windows que retorna o serial do HD? Abraço [As partes desta mensagem que não continham texto foram removidas] _ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!.
Re: [SPAM] [delphi-br] Serial HD
Bom eu tenho essa dica: Function SerialNum(FDrive:String) :String; Var Serial:DWord; DirLen,Flags: DWord; DLabel : Array[0..11] of Char; begin Try GetVolumeInformation(PChar(FDrive+':\'),dLabel,12,@Serial,DirLen,Flags,nil,0); Result := IntToHex(Serial,8); Except Result :=''; end; end; tenta ver se resolve ae. []'s Allan - Original Message - From: [EMAIL PROTECTED] To: delphi-br@yahoogrupos.com.br Sent: Thursday, May 11, 2006 8:17 AM Subject: [SPAM] [delphi-br] Serial HD Qual é a função correspondente da API do windows que retorna o serial do HD? Abraço [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE -- Links do Yahoo! Grupos a.. Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ b.. Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo!. [As partes desta mensagem que não continham texto foram removidas] -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!.
[delphi-br] Serial HD
Qual é a função correspondente da API do windows que retorna o serial do HD? Abraço [As partes desta mensagem que não continham texto foram removidas] -- 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] Yahoo! Grupos, um serviço oferecido por: PUBLICIDADE 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 Termos do Serviço do Yahoo!.
RES: [delphi-br] Serial HD
Ola, bom dia grupo Eu estou com um problema parecido... fiz a chave do meu programa com um cdo programa pega o serial do cd e verifica com um digito verificador que esta no fonte do programa mas estou tendo problemas pq o serial do cd nao e o mesmo para o Win2000, XP(pack1), 98SE (pelo menos foi estas as versoes que testei)... testei tb em mais 3 micros que tinham o 98 e o serial permanecia sempre o mesmo nesta versao. Alguem sabe pq? -Mensagem original- De: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] Em nome de Rafael C. Mateus Enviada em: quarta-feira, 5 de outubro de 2005 16:40 Para: delphi-br@yahoogrupos.com.br Assunto: [delphi-br] Serial HD Pessoal, Tenho um sistema que pra gerar o código de desbloqueio pego o serial do HD e criptografo. Mas sempre qdo é WINDOWS 2000 SERVER isso não funciona e tive que gerar uns executáveis sem essa chave. PQ O SERIAL DO HD NO WINDOWS 2000 SERVER É DIFERENTE DOS OUTROS SISTEMAS OPERACIONAIS ? -- 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] ou [EMAIL PROTECTED] Yahoo! Grupos, um serviço oferecido por: http://br.rd.yahoo.com/SIG=12f4kqnc1/M=371233.7216260.8122519.4826560/D =brclubs/S=2137111264:HM/Y=BR/EXP=1128648403/A=3039887/R=0/SIG=13k7voobn /*http://www.mercadolivre.com.br/jm/pms?site=324418word=050930-headeri d=2021as_opt=http://www.mercadolivre.com.br MercadoLivre.com - Onde você compra e vende de tudo! Clique e Confira! PlayStation 2 a partir de R$ 659! Parcele! http://br.rd.yahoo.com/SIG=12f4kqnc1/M=371233.7216260.8122519.4826560/D =brclubs/S=2137111264:HM/Y=BR/EXP=1128648403/A=3039887/R=1/SIG=187o0ssd8 /*http://www.mercadolivre.com.br/jm/pms?site=324418word=050930-ps2mlmp; id=2021as_opt=/jm/search?as_categ_id=4384$$as_price_min=640$$as_price_m ax=1500$$as_filtro_id=MPAGO$$as_pr_categ_id=AD$$as_display_type=G$$as_or der_id=MAS_OFERTADOS$$as_filtro_id2=PRECIO_FIJO Celular Motorola com câmera a partir de R$ http://br.rd.yahoo.com/SIG=12f4kqnc1/M=371233.7216260.8122519.4826560/D =brclubs/S=2137111264:HM/Y=BR/EXP=1128648403/A=3039887/R=2/SIG=18h64job8 /*http://www.mercadolivre.com.br/jm/ms?site=324418word=050930-celmotcam id=2021as_opt=/jm/search?as_categ_id=5082$$noQCat$$as_display_type=G$$ as_filtro_id=MPAGO$$as_filtro_id2=NUEVO$$as_pr_categ_id=$$as_price_min=4 15$$as_search_both=Y$$as_word=$$as_order_id=MAS_OFERTADOS 449! Siemens SL65 com câmera a partir de R$ 730! http://br.rd.yahoo.com/SIG=12f4kqnc1/M=371233.7216260.8122519.4826560/D =brclubs/S=2137111264:HM/Y=BR/EXP=1128648403/A=3039887/R=3/SIG=18nf189r2 /*http://www.mercadolivre.com.br/jm/pms?site=324418word=050930-siemens_ sl65id=2021as_opt=/jm/search?as_word=$$as_pr_categ_id=$$as_price_min=4 99$$as_search_both=Y$$as_categ_id=3811$$as_display_type=G$$as_order_id=M AS_OFERTADOS$$noQCat=Y$$as_filtro_id=MPAGO$$as_filtro_id2=NUEVO Câmeras Digitais a partir de apenas R$ 399! http://br.rd.yahoo.com/SIG=12f4kqnc1/M=371233.7216260.8122519.4826560/D =brclubs/S=2137111264:HM/Y=BR/EXP=1128648403/A=3039887/R=4/SIG=1833fpca9 /*http://www.mercadolivre.com.br/jm/pms?site=324418word=50930-camdigmlm pid=2021as_opt=/jm/search?as_categ_id=1042$$as_pr_categ_id=AD$$as_filt ro_id=MPAGO$$as_order_id=MAS_OFERTADOS$$as_price_min=390$$as_display_typ e=G$$as_price_max=1700$$as_filtro_id2=NUEVO Parcele! CD Players Pioneer a partir de R$ 369! http://br.rd.yahoo.com/SIG=12f4kqnc1/M=371233.7216260.8122519.4826560/D =brclubs/S=2137111264:HM/Y=BR/EXP=1128648403/A=3039887/R=5/SIG=18071v4b7 /*http://www.mercadolivre.com.br/jm/pms?site=324418word=050930-mp3carro pioneermlmpid=2021as_opt=/jm/search?as_categ_id=5675$$as_pr_categ_id=A D$$as_price_min=350$$as_display_type=G$$as_order_id=MAS_OFERTADOS$$as_fi ltro_id=MPAGO$$as_filtro_id2=PRECIO_FIJOMP3 Player iPod a partir de R$ 799! http://br.rd.yahoo.com/SIG=12f4kqnc1/M=371233.7216260.8122519.4826560/D =brclubs/S=2137111264:HM/Y=BR/EXP=1128648403/A=3039887/R=6/SIG=16nlj1eg1 /*http://www.mercadolivre.com.br/jm/pms?site=324418word=050930--ipodmin iid=2021as_opt=/jm/search?as_categ_id=6367$$as_display_type=G$$as_filt ro_id=NUEVO$$as_filtro_id2=MPAGO$$as_price_min=735$$asorder_id=HIT_PAGE Parcele! _ 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] mailto:[EMAIL PROTECTED] * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do Yahoo! http://br.yahoo.com/info/utos.html . [As partes desta mensagem que não continham texto foram removidas] -- 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
[delphi-br] Serial HD
Pessoal, Tenho um sistema que pra gerar o código de desbloqueio pego o serial do HD e criptografo. Mas sempre qdo é WINDOWS 2000 SERVER isso não funciona e tive que gerar uns executáveis sem essa chave. PQ O SERIAL DO HD NO WINDOWS 2000 SERVER É DIFERENTE DOS OUTROS SISTEMAS OPERACIONAIS ? -- 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] ou [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
