请帮忙看一下这段代码错误在哪里

Question

library Delphi; uses 
SysUtils,graphics,
Classes,shellapi;function GetIconFromEXE(EXEFile:pchar;Dest:pchar):integer;stdcall;
var
tico:ticon;
begintico.Create  ;
tico.Handle :=extractIcon(hinstance, pchar(EXEFile),0);
tico.SaveToFile(Dest);
result:=1
end;exports
GetIconFromEXE;begin
end.

Answer 1

看起来，基本上没有什么错，除了tico.Create ;之后，没有tico.free
你运行后的有什么错误提示之类的呀，要有针对性的分析嘛

Answer 2

改tico.Create  ;
为tico:=ticon.Create  ;

Answer 3

tico:= TIcon.Create  ;
try
  try
    tico.Handle :=extractIcon(hinstance, pchar(EXEFile),0);
    tico.SaveToFile(Dest);
    result:=1
  except
    result;= 0;
  end;
finally
  tico.free;
end;

Answer 4

Declare Function GetIconFromEXE Lib "testdll.dll" (ByVal EXEFile As String, ByVal Dest As String) As Integer我用vb调用崩溃了