各位老大，请教关于delphi编程 “生成服务端” exe文件的方法

Question

各位老大，我想请问一下，delphi怎么编写程序实现，点击按钮然后生成一个exe文件的原理和方法，就像远程控制软件，点击“生成服务端”按钮，然后就生成一个服务端的exe文件，有老大清楚的吗？请不吝赐教，谢谢

Answer 1

一般都是向服务端中写入自己的配置数据服务端怎么来，有的直接放在软件目录下，如XXX.dat，有的放在资源文件中这些其实就是服务端程序，只是没有配置信息。怎么写入配置信息 ，首先服务端中定义一个常量var  configstr:string='xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx';用C32查看编译好后的服务端，查找'xxxx'也就是上面常量的地址 直接把配置信息写在这里就行了。写配置信息函数：
[code=Delphi(Pascal])procedure WriteToMainFile(FileUrl: String; Pos: Dword; MainFile: String);
var
  MainFileHandle: THandle;
  BytesWritten: Dword;
  i: Integer;
begin
  MainFileHandle := CreateFile(pChar(MainFile), GENERIC_READ or GENERIC_WRITE, FILE_SHARE_READ or FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  SetFilePointer(MainFileHandle, Pos, nil, FILE_BEGIN);
  for i := 0 to (200 - Length(FileUrl)) - 1 do
  begin
    FileUrl := FileUrl + #0;
  end;
  WriteFile(MainFileHandle, pChar(FileUrl)^, 200, BytesWritten, nil);
  CloseHandle(MainFileHandle);
end;[/code]复制xxx.dat到ser.exe例子 WriteToMainFile(配置信息,$04634,ser.exe的路径);网上有不少远控的源码，楼主可以看看。

Answer 2

keeley20兄，可以详解下吗？有什么好的源码推荐码