1、怎样才能执行一个线程而等待其结束[请注意是线程]？2、如何动太更改可执行文件的图标？

Question

以下均为纯技术问题：
      1、怎样才能执行一个线程而等待其结束[请注意是线程]？
      2、用不同大小的图标文件如何动太更改不同可执行文件里的图标？其中取得可执行文件的图标的开始偏移地址及偏移量不能是硬数值！而应是函数的返回值？

Answer 1

1:这样的话线程还有什么优点了?不过你相实现可以这样
var
  isEnd: Boolean; 定义一个全局变量.procedure ThreadProc; //线程函数
begin
//实现代码
 isEnd := True;
end;procedure Form1.Button1Click(Sender: TObject);
begin
  //建立线程并执行
  while not isEnd do;
end;
2:你可以参考DELPHI/DEMO中自带了读取可执行文件的资源的例子.