Preciso De Ajuda!

[Halan Lopes]

Como faço para proteger um programa?

[Vivendo&Aprendendo]

cara existem várias formas de se fazer isso... uma delas é via programação e muito simples que é pegar o número de série do hd e salvar ele em um arquivo fora da pasta base do seu programa e toda vez que sua aplicação for iniciada ele compara o número do hd com o do arquivo se for igual ele roda beleza se não ele fecha...

E exitem produtos a venda por ai que fazem por si próprios a prpteção do seu software.

falou

[Halan Lopes]

sei mas como faço, essa é a primeira vez que tento fazer isso!

[Vivendo&Aprendendo]

cara nunca testei essa função, ai vai ela ... testa ai posta o resultado

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;

falou

Alexandre

[Halan Lopes]

onde se cola esse codigo?

[Vivendo&Aprendendo]

cola essa função depois da clausula implementation e declara ela na public

e no evento onclick de um botão chama essa função...

REPITO: Nunca testei e não sei se da certo... mas testa ai e posta o resultado

falou

Alexandre

[Halan Lopes]

que erro é esse?

[Error] Login.pas(25): Unsatisfied forward or external declaration: 'TLoginfrm.SerialNum'

coloquei no public

Function SerialNum(FDrive:String) :String;

[Vivendo&Aprendendo]

tenta declarar na clausula uses WINDOWS

falou

[Halan Lopes]

como coloco na procedure TLoginfrm.BitBtn1Click(Sender: TObject);

[Vivendo&Aprendendo]

não logo do inicio da sua UNIT terá uma clausula chamada USES adicione nela o nome WINDOWS

falou

Alexandre

[Halan Lopes]

já tinha, já coloquei o função na Unit Windows, no comando onclick quando aperto Ctrl+Space aparece SerialNum, qual o procedimento do BitBtn1Click, é só :

procedure TLoginfrm.BitBtn1Click(Sender: TObject);

begin

SerialNum();

end;

ou como é?

[Vivendo&Aprendendo]

quando apertar CRTL+Space deverá aparecer os comandos que servem para aquela ocasião... coloque o nome da função... SERIALNUM;

e testa ai

Alexandre

[Halan Lopes]

então quando eu aperto CTRL+Space aparece SerialNum() se deixar do jeito que aparece da o seguinte erro:

[Error] Login.pas(55): Not enough actual parameters

o que se coloca dentro dos parentes?

[Vivendo&Aprendendo]

cara ele não nenhum exemplo de que parametro pode ser.... porque ai eu já não sei...

vou fazer aki e se der certo eu te mando..

meu mail é aslalexandre@hotmail.com

Alexandre

[Kikonanet]

Olá,

Tenta assim:

ShowMessage(SerialNum('c'));

O parâmetro seria o disco (unidade)

Abs,

Kiko

[Halan Lopes]

funcionou mas será que não vai aparecer o numero do HD da outra maquina?

[Kikonanet]

Halan,

funcionou mas será que não vai aparecer o numero do HD da outra maquina?

Primeiro você verifica se o arquivo (pra salvar o nº do HD existe), se não existir:

O programa lê o número do HD e cria/salva no arquivo.. Se o arquivo exitir você só compara.

qualquer coisa posta ae

Abs.

Kiko

[Halan Lopes]

valeu rapaziada, problema resolvido! Muito Obrigado!

[s3c]

Primeiro você verifica se o arquivo (pra salvar o nº do HD existe), se não existir:

O programa lê o número do HD e cria/salva no arquivo.. Se o arquivo exitir você só compara.

Mas qual a finalidade de gravar o número serial do HD no próprio HD ?

[Halan Lopes]

Primeiro você verifica se o arquivo (pra salvar o nº do HD existe), se não existir:

O programa lê o número do HD e cria/salva no arquivo.. Se o arquivo exitir você só compara.

Mas qual a finalidade de gravar o número serial do HD no próprio HD ?

pois é eu também não entendi!