Hola como estan.
Teengo un problema al realizar una dll este es el codigo.
este es el programa
Código Delphi
[-]Código Delphi [-]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
function GetPCName(): Pchar;stdcall; external 'CPU.dll';
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
c: pchar;
begin
c:=GetPCname();
label1.Caption :=c;
end;
end.
esta es la dll para obtener el nombre del pc.
Código Delphi
[-]library Código Delphi [-]
CPU;
uses
windows,
SysUtils,
classes;
{$R *.res}
function GetPCName(): Pchar;stdcall;
var
PC: Pchar;
Tam: Cardinal;
begin
Tam := 100;
Getmem(PC, Tam);
GetComputerName(PC, Tam);
Result := PC;
FreeMem(PC);
end;
exports GetPCname;
begin
end
.
al ejecutar el programa me da error no me coge bien la dll o no la estoy haciendo bien
alguna idea.. gracias de antemano