Fórum Inserir numero do hd em um arquivo.exe #241182
03/07/2004
0
Por favor preciso inserir o numero do hd em um arquivo.exe
na execução da aplicação, isso é possivel?
desde já agradeço a colaboração de todos, obrigado.
Robson.
na execução da aplicação, isso é possivel?
desde já agradeço a colaboração de todos, obrigado.
Robson.
Rocsadan
Curtir tópico
+ 0
Responder
Posts
03/07/2004
Sandra
rocsadan,
Veja se esta função ajuda:
Boa sorte!!
Veja se esta função ajuda:
function NumeroSerie(Unidade:PChar):String;
{Retorna o Número serial da unidade especificada}
var
VolName,SysName: AnsiString;
SerialNo, MaxCLength, FileFlags: DWord;
begin
try
SetLength(VolName, 255);
SetLength(SysName, 255);
GetVolumeInformation(Unidade, PChar(VolName), 255, @SerialNo, MaxCLength, FileFlags, PChar(SysName), 255);
result := IntToHex(SerialNo, 8);
except
result := ´ ´;
end;
end;Boa sorte!!
Responder
Gostei + 0
03/07/2004
Rocsadan
Sandra, obrigado, a função eu já tenho, a difuculdade é a seguinte:
Preciso inserir o numero do serial do hd dentro de um arquivo exe, apartir de um outro arquivo exe, explicando.
Tenho um exe da aplicação que usa esta função ela le o serial do hd, apos ter lido, gostaria de inserir este numero dentro de outro exe, que esta em um disquete, outro arquivo, bercebeu, minha dificulade não é decobrir o numero do hd e sim, inserir este numero em outro arquivo exe em tempo de execução...
Preciso inserir o numero do serial do hd dentro de um arquivo exe, apartir de um outro arquivo exe, explicando.
Tenho um exe da aplicação que usa esta função ela le o serial do hd, apos ter lido, gostaria de inserir este numero dentro de outro exe, que esta em um disquete, outro arquivo, bercebeu, minha dificulade não é decobrir o numero do hd e sim, inserir este numero em outro arquivo exe em tempo de execução...
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)