function GetFileName: string;
var
    DLLFile: string[255];
    len: integer;
begin
    len := GetModuleFileName(HInstance, @DLLFile[1], SizeOf(DLLFile));
    if len>0 then
        Result := Copy(DLLFile,1,len)
    else
        Result := '';
end;