pedroalves

Obrigado Jhonas, funciona no Delphi 7 ?

Pessoal, estou querendo colocar menu no estilo office 2007 em meus programas, vocês tem alguma sugestão (uso o delphi 5 e o delphi 7). Agradeço desde já. Pedro

Pessoal, estou precisando gerar pdf com base em varios documentos. O que preciso, passo a passo. - Selecionar varios documentos: Exemplo: contra-cheque.txt, fichafuncionario.doc, pontojul.pdf, calculosalario.xls (Já faço) - Gerar um pdf automaticamente, com os arquivos acima. Sendo que este pdf seria um arquivo com seis páginas. OBS: Uso Delphi 5. Desde já agradeço à atenção.

Bolomaster, não deve ser este o problema pois o nome não importa, desde que a chamada esteja se referindo a função que voçê deseja. No meu caso eu chamei a minha função de: GetMACAdress, se eu mudar para GetMACAddress vou está chamando a mesma função Agradeço pela boa intenção e continuo necessitando da sua ajuda e dos demais colegas. Obrigado

Caros colegas, obrigado pela atenção. Amigo Belomaster, estou usando o procedimento parecido com o do nosso colega XinXanXun. Segue abaixo: Uses NB30; procedure TfrmSenha.GeraNum; var Numero: string; Begin { quando é no Win 2000, a função retorna string vazia } Numero := GetMACAdress; End; { Retorna o ID Físico da Placa de Rede } function GetMACAdress: string; var NCB: PNCB; Adapter: PAdapterStatus; URetCode: PChar; RetCode: char; I: integer; Lenum: PlanaEnum; _SystemID: string; TMPSTR: string; begin Result := ''; _SystemID := ''; Getmem(NCB, SizeOf(TNCB)); Fillchar(NCB^, SizeOf(TNCB), 0); Getmem(Lenum, SizeOf(TLanaEnum)); Fillchar(Lenum^, SizeOf(TLanaEnum), 0); Getmem(Adapter, SizeOf(TAdapterStatus)); Fillchar(Adapter^, SizeOf(TAdapterStatus), 0); Lenum.Length := chr(0); NCB.ncb_command := chr(NCBENUM); NCB.ncb_buffer := Pointer(Lenum); NCB.ncb_length := SizeOf(Lenum); RetCode := Netbios(NCB); i := 0; repeat Fillchar(NCB^, SizeOf(TNCB), 0); Ncb.ncb_command := chr(NCBRESET); Ncb.ncb_lana_num := lenum.lana; RetCode := Netbios(Ncb); Fillchar(NCB^, SizeOf(TNCB), 0); Ncb.ncb_command := chr(NCBASTAT); Ncb.ncb_lana_num := lenum.lana; // Must be 16 Ncb.ncb_callname := '* '; Ncb.ncb_buffer := Pointer(Adapter); Ncb.ncb_length := SizeOf(TAdapterStatus); RetCode := Netbios(Ncb); //---- calc _systemId from mac-address[2-5] XOR mac-address[1]... if (RetCode = chr(0)) or (RetCode = chr(6)) then begin _SystemId := IntToHex(Ord(Adapter.adapter_address[0]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[1]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[2]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[3]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[4]), 2) + '-' + IntToHex(Ord(Adapter.adapter_address[5]), 2); end; Inc(i); until (I >= Ord(Lenum.Length)) or (_SystemID <> '00-00-00-00-00-00'); FreeMem(NCB); FreeMem(Adapter); FreeMem(Lenum); GetMacAdress := _SystemID; end;

Caros colegas, Estou usando a função "GetMACAdress" para identificar o ID da placa de rede. Ela funciona bem, exceto quando executo minha aplicação no WINDOWS 2000. Alguém tem uma dica ??? Agradeço desde já.