很奇怪:本想得到机器名,但得到是却是Hello World

[TButton]

{问题:感觉好离奇,在Delphi2009运行后,结果是Hello World,该如何解决呢?}
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }
  public

    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetComputerNameX: String ;
var
  i: Cardinal;
  cBuff: PChar;
begin
  GetMem(cBuff, 128);
  i := 128;
  GetComputerName(cBuff, i);
  Result := StrPas(cBuff);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  edit1.Text := GetComputerNameX;
end;

end.

[僵哥]

function GetComputerNameX: String ;
var
  iLen: Cardinal;
begin
  iLen := MAX_PATH;
  SetLength(Result, iLen);
  if Not GetComputerName( PChar(Result), iLen) then raise Exception.Create('GetComputerName执行失败！');
  SetLength(Result, iLen);
end;

[genispan]

我在D7下用 完全正常

[genispan]

换上僵哥的函数 也可以得到机器名

[TButton]

{谢谢僵哥,谢谢genispan. 是的,在Delphi7下是正常的,但我是在Delphi2009下出现这样的情况,}

{同时也换了僵哥的函数,问题还是依然存在.}

[僵哥]

我就是在Delphi2009下运行的.

第一种可能是,你的机器名本就叫Hello Word;第二个可能是有类似于木马的API Hook跟你开玩笑(这个可能性不大);第三个可能是你调用的GetComputerName并不是操作系统的API,而是被定向到你另外一个函数当中,比如你uses了某个单元,该单元当中也有一个同名的函数等等.

function GetComputerName(lpBuffer: PChar; var nSize: DWORD): BOOL; stdcall; external 'kernel32.dll' name 'GetComputerNameW';
function GetComputerNameX: String ;
var
  iLen: Cardinal;
begin
  iLen := MAX_PATH;
  SetLength(Result, iLen);
  if Not GetComputerName( PChar(Result), iLen) then raise Exception.Create('GetComputerName执行失败！');
  SetLength(Result, iLen);
end;

[hongqi162]

按住ctrl键点一下你的GetComputerName看看定位到那里？

[TButton]

{僵哥,我的机器名不是Hello Word,如果有类似于木马的API Hook在开玩笑的话,那么我以下这样是可以得到机器名的,}
{难道真的有木马,应该没有可能啊,但你也是Delphi2009的啊}
procedure TForm1.FormCreate(Sender: TObject);
var
  Buffer:Array[1..32] of Char;
  WSData:TWSAdata;
  Host:PHostEnt;
begin
  if WSAstartup(2,WSData)<>0 then 
  begin

  end;
  if GetHostName(@Buffer[1],32)<>0 then 
  begin

  end;
  Host := GetHostByName(@Buffer[1]);
  begin
    Edit1.Text := Host.h_name;
  end;
 end;

[TButton]

[Quote=引用 6 楼 hongqi162 的回复:]
按住ctrl键点一下你的GetComputerName看看定位到那里？
[/Quote]

{回hongqi162,不能跳转到函数申明或实现的地方去}

[TButton]

我真是汗啊.刚刚搜了注册表,里面的ComputerName数据值既然是Hello world

[hongqi162]

汗~~

[bdmh]

[Quote=引用 9 楼 TButton 的回复:]
Delphi(Pascal) code我真是汗啊.刚刚搜了注册表,里面的ComputerName数据值既然是Hello world
[/Quote]

[TButton]

结了,谢谢僵哥,谢谢genispan，谢谢hongqi162。

[ly_liuyang]

偶看了都汗~