极点博客 - 青色咖啡的博客

unit Main;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetPath(hWnd:HWND):string;
var hProcessID, hProcess: THandle;
    hMod: HMODULE;
    Size: DWORD;
    Buf: array[0..255] of char;
begin
  GetWindowThreadProcessId(hWnd, @hProcessID);
  hProcess:= OpenProcess(PROCESS_ALL_ACCESS, False, hProcessID);
  EnumProcessModules(hProcess, @hMod, SizeOf(hMod), Size);
  GetModuleFileNameEx(hProcess, hMod, Buf, SizeOf(Buf));
  CloseHandle(hProcess);
  Result:= StrPas(Buf);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
filename:string;
inifile:TIniFile;
begin
Edit1.Text:=GetPath(findwindow(nil,'Element Client'));
filename:=ExtractFilePath(paramstr(0))+'F:\Game\《完美世界》国际版\element\userdata\'+'currentserver.ini';
inifile:=Tinifile.Create(filename);
Label1.Caption:=inifile.ReadString('Server','CurrentServer','');
inifile.Free;
end;

end.

作者：青色咖啡@极点博客 - 青色咖啡的博客
地址：http://www.t522.com/post/6/
极点博客版权所有©转载时必须以链接形式注明作者和原始出处及本声明！