代码

Code highlighting produced by Actipro CodeHighlighter (freeware)http://www.CodeHighlighter.com/--> 1



procedure TFormMain.IEEE7541Click(Sender: TObject);
 3  var
   t : TResourceStream;
 begin
 7  if FileExists('float.exe') then
   WinExec('float.exe',Sw_normal)
 else
   begin
     try
       t := TResourceStream.Create(HInstance,'AEXE','EXEFILE'); //其中HInstance为一个句柄常量；rwww为资源名；exefile为资源类型
      t.SaveToFile('float.exe');
     finally
       t.free;
     end;
     WinExec('float.exe',Sw_normal);
   end;
 end;