DanielLaureth
Novato
Registrado: Quinta-Feira, 19 de Dezembro de 2013
Mensagens: 4
|
 Enviada: Sex Dez 20, 2013 9:39 pm Assunto: Nome do computador do cliente. |
 |
|
Boa noite.
Gostaria de saber o seguinte...
AssignFile(ArquivoTexto,'C:\Users\"????"\Desktop');
O que eu boto no lugar que vai o "nome" do computador do cliente? |
|
williandy
Novato
Registrado: Quinta-Feira, 14 de Fevereiro de 2013
Mensagens: 39
|
| Enviada: Sáb Dez 21, 2013 11:03 am Assunto: |
|
|
bom.. fiz aqui e deu certo coloquei um edit no form e deixei a unit da seguinte forma
| Código: | unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
function GetComputerNameFunc : string;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
tamanho:integer;
begin
edit1.Text:=GetComputerNameFunc;
tamanho:=length(Edit1.text);
edit1.text:=('C:\Users\' + (copy(Edit1.Text,1,tamanho-3) + '\Desktop'));
end;
function TForm1.GetComputerNameFunc : string; // pega o nome do pc
var ipbuffer : string;
nsize : dword;
begin
nsize := 255;
SetLength(ipbuffer,nsize);
if GetComputerName(pchar(ipbuffer),nsize) then
result := ipbuffer;
end;
end.
|
ai no seu caso ficaria
| Código: | | AssignFile(ArquivoTexto,'C:\Users\' + (edit1.text) + '\Desktop'); |
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
